
<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>Pessoal,<br>Estou fazendo leitura de um arquivo e gostaria de saber se nao tem um jeito mais elegante de descartar as primeiras linhas: ex:<br><br>my $dir="$ENV{HOME}/data";<br>opendir(DIR, $dir);<br><br>foreach my $ar (sort(readdir DIR))<br>{<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; next if $ar eq '.' or $ar eq '..';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; chdir($dir) ;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; open(FILE,"&lt;$ar") or die "Can't create file\n";<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my $linha =&lt;FILE&gt;;&nbsp;&nbsp;&nbsp; -----&gt; descarta<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $linha=&lt;FILE&gt;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -----&gt; descarta<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $linha

 =&lt;FILE&gt;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -----&gt; descarta<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $linha=&lt;FILE&gt;;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; -----&gt; descarta<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; while (&lt;FILE&gt;)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; my ( $t1, $t2, $t3) =( split /\s/ )[1, 2, 3];<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; close (FILE);<br><br>}<br><br><br>OBS: Esse jeito de abrir arquivo esta correto?? é o jeito mais eficiente??<br><br>Obrigada :)<br></div>

</div><br>


      &nbsp;</body></html>