è isso msm EDEN!! :) funcionou perfeitamente<br><br><br>ficou assim:<br><br>#!/usr/bin/perl<br><br>local $/;<br><br><br>$arquivo="$ENV{HOME}/file.txt";<br><br>open(FH, "&lt;$arquivo") or die("Arquivo nao encontrado");<br><br>while ($_=&lt;FH&gt;)<br>{<br><br><br>(my $data) = split(/- END TESTE/, $_);<br>my @registros = split (/\s*- TESTE\s*/, $data);<br>shift @registros;<br><br>for my $i (0..$#registros) {<br>print "Registro $i:\n$registros[$i]\n";<br>}<br><br>}<br><br><br><br>So nao entendi uma coisa.. pode me explicar essa parte??<br>(my $data) = split(/- END TESTE/, $_);<br> my @registros = split (/\s*- TESTE\s*/, $data);<br><br>e o que significa <br>for my $i (0..$#registros)&nbsp; &lt;--- $#registros :)<br><br><br>Obrigada<br>[]ss<br><br>Paty<br><br><b><i>Eden Cardim &lt;edencardim@gmail.com&gt;</i></b> escreveu:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> #Um dos possíveis consertos (não
 testei):<br><br>local $/;<br><br>(my $data) = split(/- END TEST/, <DATA>);<br>my @registros = split (/\s*- TESTE\s*/, $data);<br>shift @registros;<br><br>for my $i (0..$#registros) {<br>print "Registro $i:\n$registros[$i]\n";<br>}<br><br>__DATA__<br>- TESTE<br><br>bla bla bla<br>bla<br><br>- TESTE<br><br>bla<br>bla<br>bla<br><br>- TESTE<br><br>bla bla bla<br><br>- END TEST<br>deveria ignorar<br>estes dados<br>_______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm<br></DATA></blockquote><br><p>&#32;__________________________________________________<br>Fale com seus amigos  de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/