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

[Adriano Ferreira]

On 2/5/07, Bruno Prado <brunoprado.cc at 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