Posted at

apacheのログから必要な個所を抜き取りスクリプト(行単位)

More than 5 years have passed since last update.

誰でもわかるような簡単な記述ですが、ログファイルがでかくなると、エディターでは処理できなくなるので、覚書程度で。


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;