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

[Fernando Oliveira]

perl -e '$dir_orig = "."; $,=$\=$/; for(glob $dir_orig."/*"){print if -d}'

Em 12/03/07, Juliano Dantas<juliano.dantas em gmail.com> escreveu:
> 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
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>


-- 
[]'s Fernando