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> &lt;<a href="mailto:a.r.ferreira@gmail.com">a.r.ferreira@gmail.com
</a>&gt; 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 &lt;<a href="mailto:brunoprado.cc@gmail.com">
brunoprado.cc@gmail.com</a>&gt; wrote:<br>&gt; Srs, minha dúvida com relação ao perl.<br>&gt;<br>&gt; Não sei quantos conhecem o Subversion, é um software usado pra controle de<br>&gt; versões.<br>&gt;<br>&gt; O script abaixo lista os diretórios e arquivos de um determinado diretório,
<br>&gt; só que o subversion traz com ele uma pasta de controle a cada diretório, a<br>&gt; pasta &quot;.svn&quot;.<br>&gt;<br>&gt; O que eu gostaria é listar todos os diretórios e arquivos de um determinado<br>&gt; 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 &quot;.svn&quot; e seu<br>contéudo.<br><br>&nbsp;&nbsp;&nbsp;&nbsp;use File::Find;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;sub wanted {
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if (-d &amp;&amp; $_ eq &quot;.svn&quot;) {<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;$File::Find::prune = 1;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;return;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;}<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;print $File::Find::name, &quot;\n&quot;<br>&nbsp;&nbsp;&nbsp;&nbsp;}<br><br>&nbsp;&nbsp;&nbsp;&nbsp;find(\&amp;wanted, &quot;.&quot;);
<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>