[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