Eh.. foi redundante...<br> :)<br> <br> Pessoall uma outra alternativa pra eu fazer isso:<br> chdir ($caminho) || die "\n *** Erro no diretorio $caminho ***";<br> for(parse_dir(`ls -ltr`))<br> {<br> ($nome) = @$_;<br> }<br> <br> <br><br><b><i>Eden Cardim <edencardim@gmail.com></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>><br>> Pessoal.. estou usando a seguinte forma para listar arquivos de um<br>> diretorio:<br>><br>> opendir(DIR, $caminho) or die "Can't open directory:$!";<br>><br>> while($arquivo = readdir(DIR))<br>> {<br>><br>> chdir($caminho) || die "\n *** Erro no diretorio $caminho ***";<br>> print "FILE $arquivo\n";<br>> }<br>><br>> porem<br>> me imprime:<br>> os arquivos e os<br>> FILE .
<- (.) ponto<br>> FILE .. <- (..) dois pontos<br>> do diretorio..<br>><br>> 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 =~ /^\.\.?$/; #<----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> 
                <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>