Olá pessoal, tudo bem?
Seguinte, tenho rodando uma aplicação que gera um arquivo de log no
seguinte formato (e que seguem um padrão):
12-Mar 22:56 Id 100: Starting......
12-Mar 22:56 Id 100: blablablablablablablablablabla
12-Mar 22:56 Id 100: blablablablabla
.
.
.
Id: 100
.
.
.
Status: OK
.
.
.
12-Mar 22:57 Id 100: blablablablablablabla
12-Mar 22:57 Id 100: blablablablablablablablablablablablabla
12-Mar 22:57 Id 100: End
13-Mar 22:10 Id 101: Starting......
13-Mar 22:10 Id 101: blablablablablablablablablabla
13-Mar 22:10 Id 101: blablablablablablablablablablablablabla
.
.
.
Id: 101
.
.
.
Status: ERROR
.
.
.
13-Mar 22:11 Id 101: blablablablablablabla
13-Mar 22:11 Id 101: blablablablablablablablablablablablabla
13-Mar 22:11 Id 101: End
Minha idéia é gravar num arquivo, os blocos (trechos) que tiveram album
problema (FAIL, WARNING, ERROR) e posteriormente enviar no meu e-mail.
Tomando o exemplo acima, nas linhas referentes a tarefa (ID=101)
executada em 13/03, aconteceu algum problema (Status=ERROR). Então
gostaria de copiar o bloco compreendido deste o início da linha onde é
"startada" a tarefa (13-Mar 22:10 Id 101: Starting......) até a última
linha desta tarefa (13-Mar 22:11 Id 101: End)
Tentei buscar algum módulo no CPAN, mas acredito que não estou fazendo a
busca de forma apropriada.
Alguém pode me dar uma sugestão?
Abraço,
Flávio
=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
