<div><div>Patty,<br><br>Outra alternativa seria modificar $/ para "\n\n" (não foi testado):<br><code><br>$/ = "\n\n";<br>while ($_ = <IN>) {<br> next if /^-\s+TE/;<br></div> @elmts = split /\s+|\n/; # ou pode-se utilizar uma expressão regular mais complexa.
<br> @elmts = $_ =~ /^B2002\s+(?:PAI|MAE)1\s+ANO\s+NOME\s+PAI\s+20\s+FAILED\s+DATA\s+<br> ----\s+2\.04\s+%\s+NOME\s+PAI\s+FAILED-DATA\s+CHECK\s+\(\s+1\s+OF\s+10\)/x<br>}<br></code><br><br>Como você não especificou o que você quer extrair, deixo por sua conta :)
<br><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div> - TE SUMMARY FOR NOME PAI<br><br> B2002 PAI1 ANO NOME PAI 20 FAILED DATA
<br> --- 2.04 % NOME PAI FAILED-DATA CHECK ( 1 OF 10)<br><br>- TE SUMMARY FOR NOME MAE<br> <br> B2002 MAE1 ANO NOME MAE 20 FAILED DATA<br>
--- 1.04 % NOME MAE FAILED-DATA CHECK ( 1 OF 10)<br></div></blockquote></div><br>-- <br>Igor Sutton Lopes<br><a href="http://www.izut.com/">http://www.izut.com/</a>