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

Thomas Britis thomas em tcnet.com.br
Segunda Março 12 13:32:33 PDT 2007


Ou ainda:

my $f;

opendir (DIR, $dir_orig);
while (defined ($f = readdir (DIR))) {
	next if ($f =~ /^\.{1,2}$/ || !-d "$dir_orig/$f");
	print "Diretorio: $f\n";
}

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