Select Code to Download

knoppix@Microknoppix:~$ perl -Mstrict -Mwarnings -E '
> my $line = q{May  2 04:06:15 lon-pop.mail.mydom.com pop3login: LOGOU
+T, user=gonenow, ip=[::ffff:127.0.0.1], top=0, retr=0, rcvd=24, sent=
+5560, time=1};
...
> say $csv;'
02/05/2012 04:06:15,lon-pop.mail.mydom.com,pop3login,LOGOUT, user=gone
+now, ip=[::ffff:127.0.0.1], top=0, retr=0, rcvd=24, sent=5560, time=1
knoppix@Microknoppix:~$

knoppix@Microknoppix:~$ perl -Mstrict -Mwarnings -E '
> my $line = q{May  2 04:06:15 lon-pop.mail.mydom.com pop3login: LOGOU
+T,  user=gonenow, ip=[::ffff:127.0.0.1], top=0, retr=0, rcvd=24, sent
+=5560, time=1};
...
> say $csv;'
02/05/2012 04:06:15,lon-pop.mail.mydom.com,pop3login,"LOGOUT, user=gon
+enow, ip=[::ffff:127.0.0.1], top=0, retr=0, rcvd=24, sent=5560, time=
+1",gonenow,::ffff:127.0.0.1
knoppix@Microknoppix:~$