<div dir="ltr">Certo, vou dar uma olhada mais tarde. Por enquanto vou deixar a diversão após o trabalho. Só que vou fazer da forma luzitana, não pretendo procurar por módulos porque é para praticar mesmo.<br>Valeu pela dica!<br>
<br><div class="gmail_quote">2008/9/12 Eden Cardim <span dir="ltr"><<a href="mailto:edencardim@gmail.com">edencardim@gmail.com</a>></span><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
2008/9/12 gilmar <<a href="http://gilmarmoretto.mp" target="_blank">gilmarmoretto.mp</a>@<a href="http://gmail.com" target="_blank">gmail.com</a>>:<br>
<div class="Ih2E3d">> Um bom dia a todos.<br>
> Estou começando a aperender perl aos poucos e a mais ou menos, um mes e<br>
> por isso o meu problema pode ser até banal mas empaquei nele e não consigo<br>
> sair.<br>
> Somente para treinar, comecei a fazer um script que possa listar todos os<br>
> diretórios e subdiretórios o qual consegui com uma certa facilidade. Mas<br>
> comecei a ver que seria um pouquinho mais complicado quando tivesse que<br>
> listar muitos níveis de subdiretórios, então pesquisando eu ví que a solução<br>
> poderia ser uma função que chamasse a sí mesma , listasse os subdirtórios e<br>
> entrasse dentro de cada um a procura de outros subdiretórios até achar<br>
> todos.<br>
> O problema é que eu não consigo fazer isso e faz alguns dias que não<br>
> consigo nenhum avanço. Por isso estou colocando-o para que pudessem dar uma<br>
> olhada e me dar uma luz no que estou fazendo de errado.<br>
<br>
</div>Muito bem, você acertou no projeto, porém tem um detalhe: uma função<br>
recursiva precisa, necessariamente, de argumentos para ser útil. Sua<br>
função precisa receber um argumento indicando qual diretório você quer<br>
listar, dessa listagem você pega os diretórios e invoca a função<br>
novamente, passando cada um dos diretórios por vez, algo assim:<br>
<br>
sub listar_diretorio {<br>
my $dir = shift;<br>
for my $arq (glob("$dir/*")) {<br>
# ...<br>
listar_diretorio($arq) if -d $arq;<br>
}<br>
}<br>
<br>
listar_diretorio($inicial);<br>
<br>
no CPAN tem vários módulos que fazem isso (File::Next, Path::Class),<br>
sugiro a leitura dos fontes, será bastante instrutivo.<br>
<font color="#888888"><br>
--<br>
<a href="http://edenc.vox.com" target="_blank">edenc.vox.com</a><br>
_______________________________________________<br>
Cascavel-pm mailing list<br>
<a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm" target="_blank">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
</font></blockquote></div><br></div>