くれすのPerl日記

■ [メモ] bz2とそうじゃないのが混在している場合 20:33

ApacheのログをPerlで解析しようということになり、すべてのファイルを開いてそれぞれについて調べていこう・・・と思ったら。なんか古いログはbzip2で圧縮してあるらしくて。かといってハウジングのサーバに勝手にPerlモジュール*1入れるわけにも行かず。そこで思いついたのが

if( $filename =~ /\.bz2$/ ) {
    open( IN, "bzip2 -cd $filename |" );
}
else {
    open( IN, $filename );
}

・・・。

どうなんでしょうね。コレ。私はどうかと思いますがね。

一時的に使うものだからまだ良いかもしれないけど、こんなのが常時稼動していたら大変なことに。

余談

その解析するログファイルというのが滅茶苦茶多い。試しに5日前のログを解析してみたら、それだけで2分かかった。単にユニークアクセスを数えるだけなんだけど。

で、その膨大な量のログが半年分。一体コレ解析するのに何時間かかるんでしょ。