Nossa! Problema resolvido,<br><br><br>Muito Obrigado!<br>BRUNO<br><br><div><span class="gmail_quote">Em 05/02/07, <b class="gmail_sendername">Adriano Ferreira</b> <<a href="mailto:a.r.ferreira@gmail.com">a.r.ferreira@gmail.com
</a>> escreveu:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">On 2/5/07, Bruno Prado <<a href="mailto:brunoprado.cc@gmail.com">
brunoprado.cc@gmail.com</a>> wrote:<br>> Srs, minha dúvida com relação ao perl.<br>><br>> Não sei quantos conhecem o Subversion, é um software usado pra controle de<br>> versões.<br>><br>> O script abaixo lista os diretórios e arquivos de um determinado diretório,
<br>> só que o subversion traz com ele uma pasta de controle a cada diretório, a<br>> pasta ".svn".<br>><br>> O que eu gostaria é listar todos os diretórios e arquivos de um determinado<br>> diretório exceto os arquivos diretórios .svn
<br><br>O segredo é usar File::Find::prune, como no exemplo que lista todos os<br>arquivos do diretório corrente, mas ignora os diretórios ".svn" e seu<br>contéudo.<br><br> use File::Find;<br><br> sub wanted {
<br> if (-d && $_ eq ".svn") {<br> $File::Find::prune = 1;<br> return;<br> }<br> print $File::Find::name, "\n"<br> }<br><br> find(\&wanted, ".");
<br><br><br>Adriano Ferreira<br>_______________________________________________<br>Vitoria mailing list<br><a href="mailto:Vitoria@pm.org">Vitoria@pm.org</a><br><a href="http://mail.pm.org/mailman/listinfo/vitoria">http://mail.pm.org/mailman/listinfo/vitoria
</a><br></blockquote></div><br>