[Cascavel-pm] Ler Arquivo
Patty Silva
ptfzs em yahoo.com.br
Quarta Setembro 5 06:39:05 PDT 2007
Mas desse jeito, vc carrrega o arquivo inteiro de uma vez.. :D
Nao eh Nelson?? :) isso nao eh tao elegante assim para um arquivo com diversas linhas :D
Rafael Lebrão Martins <rafamv1 em ig.com.br> escreveu:
> 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);
}
_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm
Flickr agora em português. Você clica, todo mundo vê. Saiba mais.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070905/2f54cd1c/attachment-0001.html
Mais detalhes sobre a lista de discussão Cascavel-pm