Alguem aí manja de perl, especialmente conversão de data ?
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/processoCompraFuncoesAjax.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 ?
Reply to: