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