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