[Cascavel-pm] Listando sub-diretorios ...

Juliano Dantas juliano.dantas em gmail.com
Segunda Março 12 13:03:04 PDT 2007


Caros colegas,

criei o codigo abaixo, para coletar os nomes dos sub-diretorios existentes
abaixo do diretorio principal, porém o mesmo não esta retornando esses
valores.
Algum colega poderia avaliar o meu codigo e indicar se existe algo errado ou
uma sugestão para melhorar o codigo, fazendo com que, o mesmo funcione?


opendir (DIR,"$dir_orig") or die "Nao foi possivel abrir o diretorio [
$dir_orig ]. Erro: $! \n";
     @subdir = grep { /^\./ && /^\../ && -d "$dir_orig/$_" } readdir(DIR);
     closedir DIR;

     foreach $subdir (@subdir)
 {
    print "diretorio: " . $subdir . "\n";
 }

Grato,

-- 
Juliano Dantas Almeida Silva
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070312/b4d298c1/attachment.html 


Mais detalhes sobre a lista de discussão Cascavel-pm