[Cascavel-pm] Ler Arquivo

[Igor Sutton]

Patty,

Outra alternativa seria modificar $/ para "\n\n" (não foi testado):
<code>
$/ = "\n\n";
while ($_ = <IN>) {
    next if /^-\s+TE/;
    @elmts = split /\s+|\n/; # ou pode-se utilizar uma expressão regular
mais complexa.
    @elmts = $_ =~
/^B2002\s+(?:PAI|MAE)1\s+ANO\s+NOME\s+PAI\s+20\s+FAILED\s+DATA\s+

----\s+2\.04\s+%\s+NOME\s+PAI\s+FAILED-DATA\s+CHECK\s+\(\s+1\s+OF\s+10\)/x
}
</code>

Como você não especificou o que você quer extrair, deixo por sua conta :)

 - TE SUMMARY FOR NOME PAI
>
>  B2002      PAI1    ANO NOME PAI        20 FAILED DATA
>  ---                 2.04 % NOME PAI               FAILED-DATA  CHECK (
> 1 OF 10)
>
> - TE SUMMARY FOR NOME MAE
>
>  B2002      MAE1    ANO NOME MAE        20 FAILED DATA
>  ---                 1.04 % NOME MAE             FAILED-DATA  CHECK (    1
> OF 10)
>

-- 
Igor Sutton Lopes
http://www.izut.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060523/0568d1e8/attachment-0001.html