[Cascavel-pm] Ler Arquivo

[Patty Silva]

è isso msm EDEN!! :) funcionou perfeitamente


ficou assim:

#!/usr/bin/perl

local $/;


$arquivo="$ENV{HOME}/file.txt";

open(FH, "<$arquivo") or die("Arquivo nao encontrado");

while ($_=<FH>)
{


(my $data) = split(/- END TESTE/, $_);
my @registros = split (/\s*- TESTE\s*/, $data);
shift @registros;

for my $i (0..$#registros) {
print "Registro $i:\n$registros[$i]\n";
}

}



So nao entendi uma coisa.. pode me explicar essa parte??
(my $data) = split(/- END TESTE/, $_);
 my @registros = split (/\s*- TESTE\s*/, $data);

e o que significa 
for my $i (0..$#registros)  <--- $#registros :)


Obrigada
[]ss

Paty

Eden Cardim <edencardim em gmail.com> escreveu: #Um dos possíveis consertos (não testei):

local $/;

(my $data) = split(/- END TEST/, );
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
_______________________________________________
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/f0ee8eff/attachment.html