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 ".svn".
<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="c:/views_svn/angra";
<br><br>open(BR,">consegui1.txt");<br># imprime todos os diretorios abaixo do ativo<br><br>find sub { print BR "$File::Find::name\n"}, "$vob";<br> #next if $File::Find::name eq 'svn' or $name eq '.svn';
<br><br>close(BR);<br>