<div>Caros colegas,</div>
<div> </div>
<div>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.</div>
<div>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?</div>
<div> </div>
<div>
<p>opendir (DIR,"$dir_orig") or die "Nao foi possivel abrir o diretorio [ $dir_orig ]. Erro: $! \n";<br> @subdir = grep { /^\./ && /^\../ && -d "$dir_orig/$_" } readdir(DIR);
<br> closedir DIR;</p>
<p> foreach $subdir (@subdir)<br> {<br> print "diretorio: " . $subdir . "\n";<br> }<br></p></div>
<div> </div>
<div>Grato,<br clear="all"><br>-- <br>Juliano Dantas Almeida Silva </div>