[Cascavel-pm] Listando sub-diretorios ...
Thomas Britis
thomas em tcnet.com.br
Segunda Março 12 13:31:01 PDT 2007
my $f;
opendir (DIR, $dir_orig);
while (defined ($f = readdir (DIR))) {
next if ($f =~ /^\.{1,2}$/);
print "Diretorio: $f\n" if (-d "$dir_orig/$f");
}
Juliano Dantas wrote:
> 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
--
Thomas Storino Britis
TCNet Informatica e Telecomunicacoes LTDA
Mais detalhes sobre a lista de discussão Cascavel-pm