Ola Pessoal.. qual&nbsp; 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>&nbsp;&nbsp;&nbsp; next if $file eq '.' or $file eq '..';<br><br>&nbsp;&nbsp;&nbsp; chdir($basedir) || die "\n *** Erro no diretorio $basedir ***";<br>&nbsp; <br>&nbsp;&nbsp;&nbsp; open my $fh, "&lt;", $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 = &lt;*.TXT&gt;)<br>{<br><br>&nbsp; my $infile= $caminho.$arquivo;<br><br>&nbsp; open(ARQIN,$inFile);<br><br>...<br><br><br>:)<br>Obrigada<br><p>&#32;


      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>.