Pessoal.. nao sei se é a melhor forma..<br>mas tenho um arquivo e preciso ler a 2 linha ( eh o cabecalho) e a 4 linha em diante( sao os dados )<br><br>my $arquivo;<br>my $linha;<br><br>while ($arquivo = &lt;*.dat&gt;) <br>{<br>&nbsp;&nbsp;&nbsp; my $file= $caminho.$arquivo;<br>&nbsp;&nbsp;&nbsp; open(INFILE,"&lt; $file") or die "Impossivel abrir o arquivo $_\n"; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;  <br><br>&nbsp;&nbsp;&nbsp; $linha=&lt;INFILE&gt;;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; # le a 1 linha e descarta<br>&nbsp;&nbsp;&nbsp; $linha=&lt;INFILE&gt;;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; # le a 2 linha de variaveis<br>&nbsp;&nbsp;&nbsp; @fields= split(/,/,$linha);&nbsp;&nbsp;&nbsp; --&gt; aqui eh o cabecalho que eu guardo...<br>.<br>.<br>.<br>&nbsp;$linha=&lt;Arq_IN&gt;;&nbsp;&nbsp; # descarta a 3 linha<br>&nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp; while ( $linha=&lt;Arq_IN&gt; ) <br>&nbsp;&nbsp;&nbsp; {&nbsp;&nbsp;&nbsp; # Loop para ler as
 linhas seguintes...<br><br>.........<br><br><br>ele nao esta descartando a 3 linha..<br>:D<br><br><br><p>&#32;


      Flickr agora em português. Você clica, todo mundo vê. <a href="http://br.rd.yahoo.com/mail/taglines/flickr/*http://www.flickr.com.br/">Saiba mais</a>.