Srs, minha dúvida com relação ao perl.<br><br>Não sei quantos conhecem o Subversion, é um software usado pra controle de versões.<br><br>O script abaixo lista os diretórios e arquivos de um determinado diretório, só que o subversion traz com ele uma pasta de controle a cada diretório, a pasta &quot;.svn&quot;.
<br><br>O que eu gostaria é listar todos os diretórios e arquivos de um determinado diretório exceto os arquivos diretórios .svn<br><br>Alguem pode me ajudar?<br><br>#!/usr/bin/perl<br><br>use File::Find;<br><br>$vob=&quot;c:/views_svn/angra&quot;;
<br><br>open(BR,&quot;&gt;consegui1.txt&quot;);<br># imprime todos os diretorios abaixo do ativo<br><br>find sub { print BR &quot;$File::Find::name\n&quot;}, &quot;$vob&quot;;<br>&nbsp;#next if $File::Find::name eq &#39;svn&#39; or $name eq &#39;.svn&#39;;
<br><br>close(BR);<br>