<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman,new york,times,serif;font-size:12pt"><div>Obrigada pessoal!! :)<br></div><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"><br><div style="font-family: times new roman,new york,times,serif; font-size: 12pt;"><font size="2" face="Tahoma"><hr size="1"><b><span style="font-weight: bold;">De:</span></b> Fernando Oliveira <fernandocorrea@gmail.com><br><b><span style="font-weight: bold;">Para:</span></b> Cascavel Perl Mongers <cascavel-pm@pm.org><br><b><span style="font-weight: bold;">Enviadas:</span></b> Quarta-feira, 28 de Abril de 2010 14:07:47<br><b><span style="font-weight: bold;">Assunto:</span></b> Re: [Cascavel-pm] Descartar Linha arquivo<br></font><br><div> open my $fh, '<', "$ar" or die "Can't read file\n";</div><div> while ( <$fh> )
{</div><div> next if $. <= 4;</div><div> ...</div><div> }</div><div> close $fh;</div>
<div><br></div>Just another Perl Hacker,<br>Fernando (SmokeMachine)<br><a rel="nofollow" target="_blank" href="http://perl-e.org">http://perl-e.org</a><br>
<br><br><div class="gmail_quote">Em 28 de abril de 2010 10:59, Nelson Ferraz <span dir="ltr"><<a rel="nofollow" ymailto="mailto:nferraz@gmail.com" target="_blank" href="mailto:nferraz@gmail.com">nferraz@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div class="ii gt"> open my $fh, '<', "$ar" or die "Can't read file\n";<br>
while ( <$fh> ) {<br>
# ...<br>
}<br>
close $fh;</div></blockquote></div><br>
</div></div>
</div><br>
</body></html>