[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