Eh.. foi redundante...<br> :)<br> <br> Pessoall uma outra alternativa pra eu fazer isso:<br> &nbsp;chdir ($caminho) || die "\n *** Erro no diretorio $caminho ***";<br> &nbsp;for(parse_dir(`ls -ltr`))<br> {<br> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ($nome) = @$_;<br> }<br> <br> <br><br><b><i>Eden Cardim &lt;edencardim@gmail.com&gt;</i></b> escreveu:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> On 7/3/06, Patty Silva <ptfzs @yahoo.com.br=""> wrote:<br>&gt;<br>&gt;  Pessoal.. estou usando a seguinte forma para listar arquivos de um<br>&gt; diretorio:<br>&gt;<br>&gt;  opendir(DIR, $caminho) or die "Can't open directory:$!";<br>&gt;<br>&gt;  while($arquivo = readdir(DIR))<br>&gt;  {<br>&gt;<br>&gt;          chdir($caminho) || die "\n *** Erro no diretorio $caminho ***";<br>&gt;          print "FILE $arquivo\n";<br>&gt;  }<br>&gt;<br>&gt;  porem<br>&gt;  me imprime:<br>&gt;  os arquivos e os<br>&gt;  FILE .  
 &lt;- (.) ponto<br>&gt;  FILE ..  &lt;- (..) dois pontos<br>&gt;  do diretorio..<br>&gt;<br>&gt;  como faco para nao imprimir isso/??<br><code><br>opendir(DIR, $caminho) or die "Can't open directory:$!";<br><br>while($arquivo = readdir(DIR))<br>{<br>    next if $arquivo =~ /^\.\.?$/;  #&lt;----Acrescente isso<br>#    chdir($caminho) || die "\n *** Erro no diretorio $caminho ***";<br>## n entendi, pra q isso?<br>    print "FILE $arquivo\n";<br>}<br></code><br><br>ou use o módulo File::Slurp<br><br><code><br>use File::Slurp;<br>foreach my $arquivo () {<br>    print "FILE $arquivo\n";<br>}<br></code><br>_______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm<br></ptfzs></blockquote><br><p>&#32;
                <hr size=1> 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. <a href="http://us.rd.yahoo.com/mail/br/tagline/mobile_alerts/*http://br.mobile.yahoo.com/mailalertas/">Registre seu aparelho agora!</a>