Date: Tue, 3 Jan 2006 14:05:37 -0600 From: Doug Poland <wisco.disco@gmail.com> To: Giorgos Keramidas <keramida@ceid.upatras.gr> Cc: Bart Silverstrim <bsilverstrim@athensasd.org>, freebsd-questions@freebsd.org Subject: Re: log file conversion (OT?) Message-ID: <eae8cb0a0601031205w2327ff48qf5c9d764c5a3112@mail.gmail.com> In-Reply-To: <20051109184814.GA57162@flame.pc> References: <06fe145ebc265841b4c499f5dc1e72ab@athensasd.org> <20051109180353.GA10584@flame.pc> <c3593d564c07405fc09bd0e370319c1b@athensasd.org> <20051109184814.GA57162@flame.pc>
next in thread | previous in thread | raw e-mail | index | archive | help
On 11/9/05, Giorgos Keramidas <keramida@ceid.upatras.gr> wrote:
> On 2005-11-09 13:44, Bart Silverstrim <bsilverstrim@athensasd.org> wrote:
> > On Nov 9, 2005, at 1:03 PM, Giorgos Keramidas wrote:
> > >Yes. Perl should work fine here.
> > >
> > > $ echo '1131556815.537 101 172.16.2.153 TCP_HIT/200 35674 GET' =
| \
> > > perl -MPOSIX=3Dstrftime \
> > > -pe 'chomp; @x=3Dsplit /\./; \
> > > $ts =3D strftime "%Y-%m-%d %H:%M:%S", (localtime($x[0])); \
> > > $_=3D$ts.".".join(".",@x[1,$#x])."\n";'
> > > 2005-11-09 09:20:15.537 101 172.153 TCP_HIT/200 35674 GET
> >
Thank you, Giorgos, for that excellent Perl one-liner. There is a
minor problem in that not all the input fields are output correctly.=20
Note the IP address is truncated. I took the liberty of fixing and
simplifiing (or, obfuscating, depending on one's point of view)
tail -f /usr/local/squid/logs/access.log | \
perl -MPOSIX=3Dstrftime -ane \
'$F[0] =3D strftime "%Y-%m-%d %H:%M:%S", (localtime($F[0])); \
print join(" ", @F) . "\n";'
--
Regards,
Doug
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?eae8cb0a0601031205w2327ff48qf5c9d764c5a3112>