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 [EMAIL PROTECTED] 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 ? -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of unsubscribe. Trouble? Contact [EMAIL PROTECTED]
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 [EMAIL PROTECTED] 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 -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of unsubscribe. Trouble? Contact [EMAIL PROTECTED]
Re: Alguem aí manja de perl, especialmente conversão de data ?
convertí de perl para bash, ficou melhor no bash. 2008/10/3 Davi Vidal [EMAIL PROTECTED]: 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 [EMAIL PROTECTED] 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 -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of unsubscribe. Trouble? Contact [EMAIL PROTECTED] -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of unsubscribe. Trouble? Contact [EMAIL PROTECTED]