Perl

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;