Ok.
Obrigado Frederico, vou tentar debugar o programa.
On 15-07-2011 05:07, Frederico Recsky wrote:
Ola Flavio,
Faz assim:
perl -d script_name.pl <http://script_name.pl>
Vai cair num terminal, ele é seu debugger.
* se voce apertar 'n' e enter, ele executa a próxima instrução.
* se voce apertar 's' e enter, ele vai executar a proxima
instrução e se ela for uma chamada, ela entra dentro.
Então, quando chegar em pesquisa, (se chegar) voce aperta s, que e
para pular dentro da função. depois continua dando n.
Se voce escrever x, ele dai dar um dump da variavel.
Tem mais informação a respeito aqui:
http://sao-paulo.pm.org/artigo/2010/perldebugger
Em geral achar erros assim é muito mais facil executando passo a passo
no debugger. De certa forma é deterministico também, quando chegar o
problema você vai estar bem em cima dele :). Pensa como um teste de
mesa "live action".
[]'s
Frederico
2011/7/15 "Flávio R. Lopes" <[email protected]
<mailto:[email protected]>>:
> Aqui esta ele: http://pastebin.com/SXguCJr3
>
> Este Script irá varrer um arquivo de log, que tem o seguinte formato:
>
>
**************************************************************************
> Data Inicial => 12-07-2011
> Inicio da sincronizacao => 22:38:02
> .
> .
> .
> sent 504665499 bytes .....
> total size is ...
> Fim da sincronizacao => 23:50:07
> Data Final => 12-07-2011
>
**************************************************************************
>
**************************************************************************
> Data Inicial => 13-07-2011
> Inicio da sincronizacao => 23:19:15
> .
> .
> .
> sent 523642233 bytes .....
> total size is ...
> Fim da sincronizacao => 23:50:22
> Data Final => 13-07-2011
>
**************************************************************************
>
> Ele varrerá os logs dos últimos 3 dias e irá procurar pelas linhas que
> comecem com "sent" ou "total". Se estas linhas não existirem, então
houve
> alguma falha e então será executado um script.
>
> Será que é na Sub que está o erro?
>
>
>
>
> On 14-07-2011 23:27, "Flávio R. Lopes" wrote:
>
> Olá Russo.
> Não, não é.
> Vou colocar o código inteiro no Pastebin para ficar mais claro.
>
> On 14-07-2011 23:15, Alexei Znamensky wrote:
>
> 2011/7/14 "Flávio R. Lopes" <[email protected]
<mailto:[email protected]>>
>>
>> Boa noite pessoal.
>>
>> Onde estou errando nisso:
>>
>> Supondo que eu tenha um array "@dias", onde desejo passar elemento por
>> elemento para uma Sub (pesquisa)
>>
>> my @dias = qw ("12-7-2011" "13-7-2011" "14-7-2011");
>
> my @dias =qw(12-7-2011 13-7-2011 14-7-2011); # isso?
> []s,
> --
> Alexei "RUSSOZ" Znamensky | russoz EM gmail com | http://russoz.org
> GPG fingerprint = 42AB E78C B83A AE31 7D27 1CF3 C66F B5C7 71CA 9F3C
> http://www.flickr.com/photos/alexeiz | http://github.com/russoz
>
> =begin disclaimer
> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: [email protected]
<mailto:[email protected]>
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
> =begin disclaimer
> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: [email protected]
<mailto:[email protected]>
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
> =begin disclaimer
> Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
> SaoPaulo-pm mailing list: [email protected]
<mailto:[email protected]>
> L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>
=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: [email protected]
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: [email protected]
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
