データからある文字列の次の行を出力するには

質問

perlの初心者です。はじめまして。
質問タイトルそのままなのですが、データからある文字列の次の行を出力するにはどのような記述をすればよろしいでしょうか？よろしくお願いします。
・データは1ファイルで2000あります。1つのデータは[X,Y]で始まり、次の[X,Y]の前までになります。
・出力はCSVファイル。
・DAT errがあった場合はその次の行を出力。なかったら、DAT列は空白にする。

#!/bin/perl
open(FILE,"<$ARGV[0]");
open(OUT,">$ARGV[0].csv");
########################## err count ###########################
print OUT "X,Y,NUMBER,DAT,\n";
while(<LOG>){
if($_ =~ /X=(.+)\,Y=(.+)/){
chomp($_);
print OUT "\n$1,$2,";
}
if($_ =~ /NUMBER (.+)/){
print OUT "$1,";
}
if($_ =~ /DAT err/){
print OUT "PASS,0,";
}
}
close(OUT);

回答No.2

kumoz · ベストアンサー

すみません。最初のブロックに next を入れるのを忘れていました。

if ($_ =~ /DAT err/) {
print OUT "PASS,0,";
$flag = 1;
next;
}
if ($flag) {
print OUT $_; # 改行が不要の場合は chomp してください
$flag = 0;
}

質問のコード例では、open の入力ファイルハンドル名 FILE と while のファイルハンドル名 LOG が違っています。
同じファイルハンドル名であれば、２番目の方法も動くはずなのですが？

お礼

ありがとうございます。
大変助かりました。

回答No.1

kumoz

フラグ変数を用いて出力することができると思います。

if ($_ =~ /DAT err/) {
print OUT "PASS,0,";
$flag = 1;
}
if ($flag) {
print OUT $_; # 改行が不要の場合は chomp してください
$flag = 0;
}

また、あまり複雑にすると混乱しますが、１行程度であれば while ブロックの中で
読み込むことも可能だと思います。

if ($_ =~ /DAT err/) {
print OUT "PASS,0,";
print OUT scalar(<LOG>);
}

お礼

kumoz様　こんばんは。
回答ありがとうございます。
教えて頂いた以下を追記したところ、DAT errの次の行ではなく、
DAT errを含めた行が出力されました。
>f ($_ =~ /DAT err/) {
>print OUT "PASS,0,";
>$flag = 1;
>}
>if ($flag) {
>print OUT $_; # 改行が不要の場合は chomp してください
>$flag = 0;
>}
また、以下を追記したところ、何も出力されませんでした。
>if ($_ =~ /DAT err/) {
>print OUT "PASS,0,";
>print OUT scalar(<LOG>);
>}

どうかアドバイスをお願いいたします。