Re: syslog from perl but no date (svlogd)

["Csillag Tamás" <cstamas@digitus.itk.ppke.hu>]

On 07/17, Csillag Tamás wrote:
> I will look to the code if it can be imlemented without messing up the
> code.
> 
> Do you know what could be a prefered way?
> 
> Hmm, maybe some kind of processor can do the hard work for me.
> Maybe a perl script? 
> 
> I will mail it here if I have a working solution.

What do you think about this perl script?
____________________________________________________
#!/usr/bin/perl

use warnings;
use strict;

my $l;

while($l=<STDIN>) {
 $l=~/(\d\d\d\d-\d\d-\d\d_\d\d:\d\d:\d\d.\d\d\d\d\d \w+.\w+:) \w\w\w \d\d \d\d:\d\d:\d\d (.+)/;
 if(defined $1 and defined $2) {
   print $1 . " " . $2 . "\n";
 }
 else {
   print $l;
 }
}
___________________________________________________
If I am not mistaken I can put this to svlogd's processor.
(!perl processor.pl | gzip -9)

$ cat file
2004-07-17_08:17:01.42255 user.notice: Jul 15 23:52:52 logger: test
3004-07-17_08:17:01.42255 mail.info: example.pl[3449]: test
4004-07-17_08:17:01.42255 user.notice: Jul 17 23:52:52 logger: test
5004-07-17_08:17:01.42255 mail.info: example.pl[3449]: test

$ cat file | perl processor.pl
2004-07-17_08:17:01.42255 user.notice: logger: test
3004-07-17_08:17:01.42255 mail.info: example.pl[3449]: test
4004-07-17_08:17:01.42255 user.notice: logger: test
5004-07-17_08:17:01.42255 mail.info: example.pl[3449]: test

-- 
cstamas