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]
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
