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 = <*.dat>) <br>{<br> my $file= $caminho.$arquivo;<br> open(INFILE,"< $file") or die "Impossivel abrir o arquivo $_\n"; <br><br> $linha=<INFILE>; # le a 1 linha e descarta<br> $linha=<INFILE>; # le a 2 linha de variaveis<br> @fields= split(/,/,$linha); --> aqui eh o cabecalho que eu guardo...<br>.<br>.<br>.<br> $linha=<Arq_IN>; # descarta a 3 linha<br> <br> while ( $linha=<Arq_IN> ) <br> { # Loop para ler as
linhas seguintes...<br><br>.........<br><br><br>ele nao esta descartando a 3 linha..<br>:D<br><br><br><p> 
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>.