Mas desse jeito, vc carrrega o arquivo inteiro de uma vez.. :D<br>Nao eh Nelson?? :) isso nao eh tao elegante assim para um arquivo com diversas linhas :D<br><br><b><i>Rafael Lebrão Martins <rafamv1@ig.com.br></i></b> escreveu:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> <br><br>> 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 <br>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= ; # le a 1 linha e descarta <br>> $linha= ; # le a 2 linha de variaveis <br>> @fields= split(/,/,$linha); --> aqui eh o cabecalho que eu guardo... <br>>. <br>>. <br>>. <br>> $linha= ; # descarta a 3 linha
<br>> <br>> while ( $linha= ) <br>> { # Loop para ler as <br>> linhas seguintes... <br>> <br>>......... <br>> <br>>ele nao esta descartando a 3 linha.. <br>>:D <br><br>Eu faria desta forma: <br><br>#!/usr/bin/perl <br><br>use strict; <br>use warnings; <br><br>my $arquivo = 'caminho'; <br>open (my $infile, '<', "$arquivo"); <br>my @linhas = <$infile>; <br><br>foreach (@linhas) { <br>next if eq $linhas[2]; <br>close ($infile); <br>} <br><br><br>_______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm</blockquote><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>.