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

perl 初心者です。

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

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

No.1 ベストアンサー 回答者： sakusaker7 回答日時： 2008/02/11 00:51

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

my $match_count;

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

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

とか。

この回答へのお礼

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

お礼日時：2008/02/11 02:19