条件にマッチした行数のカウント

質問

perl 初心者です。

while (<>) {
if (/条件/) {
　　　print;
}
}

複数のファイルの中で、if文の /条件/　で指定した部分にマッチした行数をカウントして変数に入れたいのですが、ここからどうすればいいのかわかりません・・・。
初歩的な質問で申し訳ないのですが、よろしくお願いします。

回答No.1

sakusaker7 · ベストアンサー

マッチした行を数えて行く変数を用意して、マッチするたびに+1すれば?

my $match_count;

while (<>) {
if (/条件/) {
$match_count++;
　　　print;
}
}

print "マッチした行は${match_count}行ありました";

とか。

お礼

できました！お早いご回答ありがとうございます。
助かりました！！