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]