[Cascavel-pm] Ler Arquivo

Eden Cardim edencardim em gmail.com
Terça Junho 6 07:06:07 PDT 2006


#bem, o seguinte código funcionou comigo:
local $/;

my @registros = split (/\s*- TESTE\s*/, <DATA>);
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


Mais detalhes sobre a lista de discussão Cascavel-pm