[Vitoria-pm] dúvida em file::find

[Bruno Prado]

Nossa! Problema resolvido,


Muito Obrigado!
BRUNO

Em 05/02/07, Adriano Ferreira <a.r.ferreira em gmail.com> escreveu:
>
> On 2/5/07, Bruno Prado <brunoprado.cc em gmail.com> wrote:
> > Srs, minha dúvida com relação ao perl.
> >
> > Não sei quantos conhecem o Subversion, é um software usado pra controle
> de
> > versões.
> >
> > 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".
> >
> > O que eu gostaria é listar todos os diretórios e arquivos de um
> determinado
> > diretório exceto os arquivos diretórios .svn
>
> O segredo é usar File::Find::prune, como no exemplo que lista todos os
> arquivos do diretório corrente, mas ignora os diretórios ".svn" e seu
> contéudo.
>
>     use File::Find;
>
>     sub wanted {
>         if (-d && $_ eq ".svn") {
>             $File::Find::prune = 1;
>             return;
>         }
>         print $File::Find::name, "\n"
>     }
>
>     find(\&wanted, ".");
>
>
> Adriano Ferreira
> _______________________________________________
> Vitoria mailing list
> Vitoria em pm.org
> http://mail.pm.org/mailman/listinfo/vitoria
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/vitoria/attachments/20070205/291a01be/attachment.html