[SP-pm] Chamando uma Sub várias vezes num looping

[Renato Santos]

Fred
é mais fácil vc crair um unico .pl e fazer assim:
perl -d perl.pl
b <numero da linha>
c

o programa vai continuar até a linha e vai para lá
ajuda um bocado !

Eu só não lembro a syntax de cor para fazer isso com subrotinas/modulos.

2011/7/15 "Flávio R. Lopes" <flavio.lopes at links.inf.br>

> **
> 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
>
>
> 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" <flavio.lopes at links.inf.br>:
> > 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" <flavio.lopes at links.inf.br>
> >>
> >> 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: SaoPaulo-pm at pm.org
> >  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: SaoPaulo-pm at pm.org
> >  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: SaoPaulo-pm at pm.org
> >  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: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> <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: SaoPaulo-pm at pm.org
>  L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
> =end disclaimer
>
>


-- 
Renato Santos
http://www.renatocron.com/blog/
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20110715/fdc36111/attachment.html>