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> =end disclaimer
