[Cascavel-pm] Listando arquivos em um diretorio

[Patty Silva]

Eh.. foi redundante...
 :)
 
 Pessoall uma outra alternativa pra eu fazer isso:
  chdir ($caminho) || die "\n *** Erro no diretorio $caminho ***";
  for(parse_dir(`ls -ltr`))
 {
        ($nome) = @$_;
 }
 
 

Eden Cardim <edencardim em gmail.com> escreveu: On 7/3/06, Patty Silva 
 wrote:
>
>  Pessoal.. estou usando a seguinte forma para listar arquivos de um
> diretorio:
>
>  opendir(DIR, $caminho) or die "Can't open directory:$!";
>
>  while($arquivo = readdir(DIR))
>  {
>
>          chdir($caminho) || die "\n *** Erro no diretorio $caminho ***";
>          print "FILE $arquivo\n";
>  }
>
>  porem
>  me imprime:
>  os arquivos e os
>  FILE .   <- (.) ponto
>  FILE ..  <- (..) dois pontos
>  do diretorio..
>
>  como faco para nao imprimir isso/??

opendir(DIR, $caminho) or die "Can't open directory:$!";

while($arquivo = readdir(DIR))
{
    next if $arquivo =~ /^\.\.?$/;  #<----Acrescente isso
#    chdir($caminho) || die "\n *** Erro no diretorio $caminho ***";
## n entendi, pra q isso?
    print "FILE $arquivo\n";
}


ou use o módulo File::Slurp


use File::Slurp;
foreach my $arquivo () {
    print "FILE $arquivo\n";
}

_______________________________________________
Cascavel-pm mailing list
Cascavel-pm em pm.org
http://mail.pm.org/mailman/listinfo/cascavel-pm



 		
---------------------------------
 Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora!
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060703/5184470c/attachment.html