[Cascavel-pm] Descartar Linha arquivo

[Patty Silva]

Pessoal,
Estou fazendo leitura de um arquivo e gostaria de saber se nao tem um jeito mais elegante de descartar as primeiras linhas: ex:

my $dir="$ENV{HOME}/data";
opendir(DIR, $dir);

foreach my $ar (sort(readdir DIR))
{
        next if $ar eq '.' or $ar eq '..';
        chdir($dir) ;

        open(FILE,"<$ar") or die "Can't create file\n";
        my $linha =<FILE>;    -----> descarta
        $linha=<FILE>;        -----> descarta
        $linha =<FILE>;        -----> descarta
        $linha=<FILE>;      -----> descarta
        while (<FILE>)
         {
                my ( $t1, $t2, $t3) =( split /\s/ )[1, 2, 3];
          }

        close (FILE);

}


OBS: Esse jeito de abrir arquivo esta correto?? é o jeito mais eficiente??

Obrigada :)



      
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/cascavel-pm/attachments/20100428/6d00078f/attachment.html>