Re: Alguem aí manja de perl, especialmente conversão de data ?
On Friday 03 October 2008 11:56:13 hamacker wrote:
> Alguem aí manja de perl, especialmente conversão de data ?
> Tenho esse script perl :
> #!/usr/bin/perl -p
> # exibe o arquivo de log do squid no formato .csv
> # Squid2csv by Vincent Chartier <vcr@kyxar.fr>
> s/^\d+\.\d+/localtime $&/e;s/^[A-Z]/"$&/g;s/[ ][ ]*/";"/g;s/\n/"$&/g
>
> O que ele basicamente faz é colocar uma linha
> /var/log/squid/access.log no formato CSV, assim :
>
"Fri";"Oct";"3";"11:51:53";"2008";"124";"192.168.1.60";"TCP_MISS/304";"265"
>;"GET";"http://www.cvc.com.br/site/resources/scripts/processoCompra/processo
>CompraFuncoesAjax.js";"fulano";"DIRECT/189.56.9.57";"-"
>
> Eu gostaria de saber como alterar a linha perl acima para juntar a data
> assim : 2008/10/03_11:51:53 ao inves do "Fri";"Oct";"3";"11:51:53";"2008"
> que é feito atualmente.
>
> Sou uma negação em perl.
> Será que alguem poderia dar uma maozinha ?
Você pode postar uma ou duas linhas do access.log?
--
Davi Vidal
--
E-mail: davividal at siscompar dot com dot br
MSN : davividal at msn dot com
GTalk : davividal at gmail dot com
Skype : davividal
YIM : davi_vidal
ICQ : 138815296
Reply to: