[Cascavel-pm] Ler Arquivo

Rafael Lebrão Martins rafamv1 em ig.com.br
Quarta Setembro 5 06:31:42 PDT 2007



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

Eu faria desta forma: 

#!/usr/bin/perl 

use strict; 
use warnings; 

my $arquivo = 'caminho'; 
open (my $infile, '<', "$arquivo"); 
my @linhas = <$infile>; 

foreach (@linhas) { 
next if eq $linhas[2]; 
close ($infile); 
} 




Mais detalhes sobre a lista de discussão Cascavel-pm