Ola Pessoal.. qual a melhor forma de abrir um arquivo lendo-o linha a linha:<br><br><br><br>opendir( DIR, $basedir ) or die "Problemas ao abrir diretorio: $!";<br><br>foreach my $file (sort(readdir DIR))<br>{<br> next if $file eq '.' or $file eq '..';<br><br> chdir($basedir) || die "\n *** Erro no diretorio $basedir ***";<br> <br> open my $fh, "<", $file or die "Nao foi Possivel Abrir o Arquivo: $!";<br>.<br>..<br>..<br>..<br><br><br>ou<br>----------------------------------------------------------------<br>chdir ($caminho) || die "\n *** Erro no diretorio $caminho ***";<br><br>while (my $arquivo = <*.TXT>)<br>{<br><br> my $infile= $caminho.$arquivo;<br><br> open(ARQIN,$inFile);<br><br>...<br><br><br>:)<br>Obrigada<br><p> 
Flickr agora em português. Você clica, todo mundo vê. <a href="http://br.rd.yahoo.com/mail/taglines/flickr/*http://www.flickr.com.br/">Saiba mais</a>.