[Cascavel-pm] Ler Arquivo

[Patty Silva]

Eden so uma OBSERvacao no seu codigo!!

Se vc incluir + coisas a baixo do END ele tb pega!! vou tentar resolver!! e posto a msg :)

Abraços
Patty

Eden Cardim <edencardim em gmail.com> escreveu: #bem, o seguinte código funcionou comigo:
local $/;

my @registros = split (/\s*- TESTE\s*/, );
shift @registros;
$registros[-1] =~ s/- END TEST$//;

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
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm


 __________________________________________________
Fale com seus amigos  de graça com o novo Yahoo! Messenger 
http://br.messenger.yahoo.com/ 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060607/3e738b92/attachment.html