Perl コーディング初心者質問コーナー Part26

[0145 nobodyさん 03/07/27 18:09 ID:???]

$n=0;
open(DATA,"data.txt");
while(<DATA>){
if($_ =~ m/$keyword/){ $n+=1; $str .= "$_<br>"; }
}
close(DATA);
print "$n件見つかりました。<br><br>$str";


これじゃだめなのん？
オープン２回が気になるなら、seekで戻せば開きなおす必要はなし。