Perlで書く 

Perlで書く 2008.09.21 Vol.218

=====================================================================
Perlで書く 2008.09.21 Vol.218
[WAZA]syslogファイルをパースする
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●syslogファイルをパースする

　Parse:Syslogモジュールを使うと簡単です。

use strict;
use warnings;
use Parse::Syslog;

my $filename = '/var/log/messages'; # syslogファイル名
my $year = 2005; # syslog開始年

my $ps = Parse::Syslog->new($filename, year => $year);

while (my $log = $ps->next) {
    printf "time: %s\n",  $log->{timestamp};
    printf "host: %s\n",  $log->{host};
    printf "prog: %s\n",  $log->{program};
    printf "pid : %s\n",  $log->{pid} || '';
    printf "text: %s\n",  $log->{text};
    print "\n";
}

　newの中でyearでsyslog開始年を設定しています。通常syslogファイルの
日時の部分には年の情報が出力されないために、ここで開始年を指定します。
yearを省略した場合は当年を指定したことになります。

●関連項目

・syslogにメッセージを出力する
  http://www2u.biglobe.ne.jp/~MAS/perl/waza/syslog.html

=====================================================================
■雑記

　今回Perlリファレンスにeval(*1)の追加も行いましたので、よければ
こちらも見て下さい。

*1 http://www2u.biglobe.ne.jp/~MAS/perl/ref/eval.html

=====================================================================
Perlで書く(マガジンID：0000109251) 配信数：897
発行者：MAS
本メールマガジンに関するご意見・お問い合わせは
t-masuda@mvd.biglobe.ne.jp までお寄せ下さい。

解除 http://www2u.biglobe.ne.jp/~MAS/perl/magazine.html
検索 http://www2u.biglobe.ne.jp/~MAS/perl/search/index.html
バックナンバー http://archive.mag2.com/0000109251/index.html
RSS  http://archive.mag2.com/0000109251/rss10.xml

本メールマガジンは「まぐまぐ」 http://www.mag2.com/ を利用して発行
しています。
=====================================================================

• 前の記事
• 最新の記事
• 次の記事

規約に同意して

登録した方には、まぐまぐの公式メルマガ（無料）をお届けします。