■
何回も調べるのが面倒になってきたので列挙
while(<>)で、読み込んだらまず chomp;
現在対象としているデータ @_
区切り文字で区切って配列に代入 @array =split("区切り文字");
配列に追加 push(@array, $adddata);
配列をリセット undef @array;
配列の個数 $#array
配列の端から順に作業 foreach $tmp (@array){ 何か作業 };
区切り文字を追加して表示 print join("区切り文字", @array);
書きだしファイルを開く open(FP, ">filename") or die "Cannot open!\n";
読み込みファイルを開く open(FP, ";chomp($data);
ディレクトリからファイル名を取得 opendir(DIR, "$data_dir") or die "cannot open directory\n";
@filelist = readdir(DIR);close(DIR);
↑chopの部分をchompに変更 （2004/10/07記： id:z23さんからのコメント参照）
chop - 行末の1文字を削除する chomp - 行末の改行コードを削除する
