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" <[email protected]> > ** > 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" <[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]> > >> > >> 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] > > 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 > > > > > > > =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> > <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 > > -- Renato Santos http://www.renatocron.com/blog/
=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
