perlでテキストファイルを加工する時、前を検索（上向きに検索）するには？

質問

perlでテキストファイルを加工しようとしています。ある語句が出て来た時に、そのブロックの先頭から抜き出したいのですが、どのように表現したらよいのでしょうか？

下記のテキストファイルで

head
sample line
sample line
sample line
head
sample line
#check line#
sample line
head
sample line
sample line
sample line

「head」というのがブロックの始まりで「#check line#」という行があるブロックのみを「check.txt」、それ以外のブロックを「normal.txt」という２ファイルに分けたいと思っています。

現在、一行ずつ読み込ませ「#check line#」が出てきたときにフラグを立てて、直前の「head」までを「check.txt」として出力しようと考えています（次のheadが来たらフラグをクリア）。前の行まで遡って検索するにはどのようにしたらよいのでしょうか。ご教示ください、よろしくお願いいたします。

回答No.2

Werner · ベストアンサー

> my $tmp='tmp.dat';
> (中略)
> print NEWFILE $tmp;
NEWFILEに文字列'tmp.dat'を出力してるみたいだけど、
これが出力したい内容なのですか？

> open(NEWFILE, '>> $tmp') or die "$!";
> (中略)
> if ($flg==1){
> open(NEWFILE, '>> check.dat') or die "$!";
これではwhileループ内でNEWFILEに対してopenが2回連続で行われてしまいます。
これでは一回目のopenで得られたファイルハンドルを見失ってしまいますよ。

また、
> if ($line eq "head")
が成立するときはcloseも2回行われてしまいます。

そもそもループ内で同じファイルのopen/closeを繰り返すのは非効率だからやめたほうが良い。
今回の場合はループ前で必要なファイルを全部openして、
最後に全部closeすれば問題ないはず。
（当たり前だけどファイルハンドルの名前は全部違うものにしてね。）

あと、$lineには改行コードが含まれるので
> if ( $line eq "#check line#" ){$flg=1;}
> if ($line eq "head"){
これらのif文が成立することはないと思います。
改行コードが含まれていても大丈夫なように書いてください。
（あらかじめchompするとか、部分一致で検出するとか、改行を含む文字列と比較するとか。）

> フラグの設定の仕方、蓄積の方法について教えていただけますでしょうか
フラグの設定はそんな感じでよいとして、
蓄積は適当な変数(下の例では$buf)に$lineの内容をどんどん足していけばよい。
で、フラグをクリアするタイミングで$bufを空にする。

my $buf = "";
while (my $line = <FILE>) {
　$buf .= $line;
　# 略
　if ($line =~ m/^head/){
　　if($flg==1){
　　　#check.txtに$bufを出力
　　}else{
　　　#normal.txtに$bufを出力
　　}
　　$flg=0;
　　$buf = ""; #$bufを空に
　}
}

あとheadを見つけたときだけじゃなくて、
最終行に到達したときもファイル出力する必要がないですか？

お礼

詳しい回答どうもありがとうございました！最終行に来たときの記述を追加し、うまくいきました。本当にありがとうございました。

回答No.1

Werner

いや、さかのぼる必要なんて無いでしょう。
1行ずつ読むときにその内容を蓄積しておいて、
ブロックの最後に来たときに一気に出力すればよい。
で、出力後はフラグと一緒に蓄積した内容をクリアする。

補足

すみません、初心者なもので現在のスクリプトは以下のようになっています。

my $tmp='tmp.dat';
my $flg=0;

open(FILE, 'sample.txt') or die "$!";

while (my $line = <FILE>) {

open(NEWFILE, '>> $tmp') or die "$!";
print NEWFILE $line;

if ( $line eq "#check line#" ){$flg=1;}

if ($flg==1){
open(NEWFILE, '>> check.dat') or die "$!";
print NEWFILE $tmp;
close (NEWFILE);
}

else{
open(NEWFILE, '>> normal.dat') or die "$!";
print NEWFILE $tmp;
close (NEWFILE);
}

if ($line eq "head"){
$flg=0;
close (NEWFILE);
}
}

close(FILE);

フラグの設定の仕方、蓄積の方法について教えていただけますでしょうか