[Cascavel-pm] Melhor forma de abrir um arquivo

[Patty Silva]

Ola Pessoal.. qual  a melhor forma de abrir um arquivo lendo-o linha a linha:



opendir( DIR, $basedir ) or die "Problemas ao abrir diretorio: $!";

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

    chdir($basedir) || die "\n *** Erro no diretorio $basedir ***";
  
    open my $fh, "<", $file or die "Nao foi Possivel Abrir o Arquivo: $!";
.
..
..
..


ou
----------------------------------------------------------------
chdir ($caminho) || die "\n *** Erro no diretorio $caminho ***";

while (my $arquivo = <*.TXT>)
{

  my $infile= $caminho.$arquivo;

  open(ARQIN,$inFile);

...


:)
Obrigada

       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/20070910/609df0e8/attachment.html