[Cascavel-pm] Ler Arquivo
Igor Sutton
igor.sutton em gmail.com
Terça Maio 23 10:49:54 PDT 2006
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
Mais detalhes sobre a lista de discussão Cascavel-pm