Senhores,<br><br>&nbsp;&nbsp; Qual a forma mais otimizada de escrever isso?<br><br>minha apliccao passa por varios diretorios de maneira recursiva<br><br>for my $eachFile (glob($source_str.&#39;*&#39;)) {<br>...<br>}<br clear="all">
<br>e eu desejo armazenar apenas o ultimo diretorio em uma hash de controle, para tanto estou criando em cada iteracao um array temporario e dando um split e pegando o ultimo elemento, acho meio ineficiente<br><br>my @tmp = split(&quot;/&quot;,$eachFile);<br>
$result_data_hash_pointer-&gt;{$dir_count_int}-&gt;{name_str} = $tmp[-1];<br><br>Alguem tem alguma dica?<br><br>estou enviando o script anexo.<br>-- <br>Abs,<br>Pedro Anisio<br>