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

[João Gabriel]

Mail List do Vitória PM tá andando!!
Viva!! rsrsss

João...




2007/2/5, Bruno Prado <brunoprado.cc em gmail.com>:
> 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
> >
>
>
> _______________________________________________
> Vitoria mailing list
> Vitoria em pm.org
> http://mail.pm.org/mailman/listinfo/vitoria
>
>
>