[Cascavel-pm] Ler Arquivo

[Eden Cardim]

Ah, um aviso: Este código é apenas uma prova de conceito, pelo amor de
deus não use-o se seu arquivo de entrada for muuuuuito grande ;-)

On 6/7/06, Eden Cardim <edencardim em gmail.com> wrote:
> #Um dos possíveis consertos (não testei):
>
> local $/;
>
> (my $data) = split(/- END TEST/, <DATA>);
> my @registros = split (/\s*- TESTE\s*/, $data);
> shift @registros;
>
> for my $i (0..$#registros) {
> print "Registro $i:\n$registros[$i]\n";
> }
>
> __DATA__
> - TESTE
>
> bla bla bla
> bla
>
> - TESTE
>
> bla
> bla
> bla
>
> - TESTE
>
> bla bla bla
>
> - END TEST
> deveria ignorar
> estes dados
>