Parse::AccessLogEntry::Accessor

perl cpan

CPAN に Parse::AccessLogEntry::Accessor なるモジュールをアップしました。しかも、CPAN に初アップです！！やったね。なので、モジュールの説明などをちょこちょこと。

何するモジュールなの？

Apache の アクセスログを一行解析する、Parse::AccessLogEntry モジュールにアクセサを追加したモジュールです。

使い方はこんな感じ

下のサンプルだと、ホスト名と時間をアクセサを使って取り込んで表示してるだけです。

#!/usr/bin/perl
use strict;
use warnings;

use Parse::AccessLogEntry::Accessor;

my $LOGFILE = 'access.log';

my $parser = Parse::AccessLogEntry::Accessor->new;

open my $fh, '<', $LOGFILE or die;
while (my $line = <$fh>) {
    chomp $line;
    $parser->parse($line);
    print $parser->host(), $parser->time(), "\n";
}
close $fh;


個人的に、Parse::AccessLogEntry をよく使ってて、アクセサがあればなと思って作っちゃいました。よければ使っていただいて、意見等いただければと思います。

あとはモジュールの管理をどうするか。CodeRepos にアカウントをもらうのがいい気もします。