|
こんにちは。いつもお世話になってます。 Perlについて質問があります。 各ファイルに ”ー１”と ”ー２”が含まれた行があって、それを区切りに２つのファイルに分けたいのですが、なかなかうまくいきません。 ＥＸＡＭＰＬＥ： ＊File０００１の内容ーー ０００１ー１ Ｃ１００ Ｏｐｅｎ Ｃ１０１ ＮＧ ０００１ー２ C１０２ Ｏｐｅｎ Ｃ１０３ Ｏｐｅｎ ＊File２の内容ーー ０００２ー１ Ｃ２００ Ｏｐｅｎ Ｃ２０１ ＮＧ C２０２ Open ０００２ー２ C２０３ Ｏｐｅｎ C２０４ ＮＧ この０００１と０００２の２つのファイルを０００１ー１と０００１ー２、０００２ー１と０００２ー２の４つのファイルに分けたいのです。 下のスクリプトは全然間違ってるのですが、/-1/ と /-2/ があった行数を記憶して、後から 行の番号を比較してどうにか区切ろうと思ったのですが、やっぱり最初は$barcode22＝０だし、全然駄目です。 普通、どのようにするのか教えて頂けませんか？ よろしくお願いします。 sub read_file_to_array { my($file)=$filename; open (FILE, "<$dir\\$database\\Defect\\$file") or die "Can't open $file\n"; $line=0; while (<FILE>){ if ($_ =~ /-1/) {$barcode11=$.}; if ($_ =~ /-2/) {$barcode22=$.}; if ($line > $barcode22) {print "$_ ";}＃試しにＳＴＤＯＵ＃に出力してみるだけ } $line++; } |