Alguem aí manja de perl, especialmente conversão de data ?

2008-10-03 Thread hamacker
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 ?

2008-10-03 Thread Davi Vidal
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 ?

2008-10-03 Thread hamacker
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]