誰でもわかるような簡単な記述ですが、ログファイルがでかくなると、エディターでは処理できなくなるので、覚書程度で。
hoge
#!/usr/bin/perl
my @log;
for my $i ( '1', '2', '3' ) {
open( FH, "$i.log" );
while ( my $line = <FH> ) {
push( @log, $line ) if ( $line =~ /img/); # ここにマッチさせたいwordを追加
}
close(FH);
}
open( OUT, ">log.txt" );
print OUT @log;
close(OUT);
exit;