10/07/04 23:10:58 nnZqjBct
>>806
>>W3C Date and Time formatsになったのは、改善だと思うから、
なる。参考になりました。ありがとうございます。
とゆーわけで、pflogsummのコードを読んでパッチを半分作りかけたのですが。
…これてって W3C Date and Timeのログファイルを、旧来のログに変換するフィルタ作ればいいんぢゃねorz
とゆーことで、作りました。正味10分OTZ
----->8----->8-----
#!/usr/bin/perl
# prepflogsumm.pl
my ($msgYear, $msgMon, $msgDay, $msgHr, $msgMin, $msgSec, $msgSecsec, $tzHr, $tzMin, $logRmdr);
my %revMonthNums = qw(
01 Jan 02 Feb 03 Mar 04 Apr 05 May 06 Jun
07 Jul 08 Aug 09 Sep 10 Oct 11 Nov 12 Dec
);
while(<>)
{
next unless((($msgYear, $msgMon, $msgDay, $msgHr, $msgMin, $msgSec, $msgSecsec,
$tzHr, $tzMin, $logRmdr) =
/^(....)-(..)-(..)T(..):(..):(..)\.(\d+)\+(..):(..) (.+)$/o ) == 10);
my $month = $revMonthNums{$msgMon};
$msgDay =~ s/^0//;
printf("%s %2s %s:%s:%s %s\n", $month, $msgDay, $msgHr, $msgMin, $msgSec, $logRmdr);
}
----->8----->8-----
使い方: prepflogsumm /var/log/maillog | pflogsumm
otz