[Cascavel-pm] Ler Arquivo
Patty Silva
ptfzs em yahoo.com.br
Quarta Setembro 5 06:13:01 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=<INFILE>; # le a 1 linha e descarta
$linha=<INFILE>; # le a 2 linha de variaveis
@fields= split(/,/,$linha); --> aqui eh o cabecalho que eu guardo...
.
.
.
$linha=<Arq_IN>; # descarta a 3 linha
while ( $linha=<Arq_IN> )
{ # Loop para ler as linhas seguintes...
.........
ele nao esta descartando a 3 linha..
:D
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/9839155a/attachment.html
Mais detalhes sobre a lista de discussão Cascavel-pm