<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 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 href="mailto:nferraz@gmail.com">nferraz@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div id=":qc8" 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>