¿Cómo encontrar archivos/carpetas recursivamente en Perl script?

Question

Tengo un script de Perl que he escrito para buscar archivos presentes en mis carpetas de Windows, recursivamente. Ingresé el texto de búsqueda como el argumento del tiempo de ejecución del script de Perl para encontrar un archivo que tenga este texto en su nombre. El script perl es el siguiente:

use Cwd; 

$file1 = @ARGV[0];  

#@res1 = glob "*test*"; 
#@res1 = glob "$file1*"; 
@res1 = map { Cwd::abs_path($_) } glob "$file1*"; 
foreach (@res1) 
{ 
    print "$_\n"; 
} 

Pero esto no busca todos los subdirectorios recursivamente. Sé que glob no coincide recursivamente.
Así intentado usar el módulo File::Find y la función find(\&wanted, @directories);

pero me dio un error diciendo find() indefinido. Por lo que leí de la ayuda, pensé que la función find() está definida por defecto en la instalación de Perl, con algunos códigos básicos para encontrar carpetas/archivos. ¿No es correcto?

Preguntas es, en el script de Perl anterior, ¿cómo busco archivos/carpetas recursivamente?

En segundas preguntas, encontré que perldoc <module> help no tiene ejemplos sobre el uso de una determinada función en ese módulo, lo que lo dejaría en claro.

¿Puede indicar alguna buena ayuda/documento/libro para usar varias funciones perl de diferentes módulos perl con ejemplos claros del uso de esas funciones del módulo?

Answer 1

Estas dos páginas son todo lo que necesita para estudiar:

• File::Find documentation
• Beginners guide to File::Find

Answer 2

Una alternativa sería utilizar find2perl para crear el inicio de la secuencia de comandos para usted. Puede activar un comando de búsqueda como,

find . -type f -name "*test*" -print 

Para un script de perl equivalente. Usted acaba de poner find2perl en lugar de encontrar. Utiliza File :: Find debajo del capó, pero te pone en marcha rápidamente.

Answer 3

Si no les importa usar el módulo CPAN, Path::Class puede hacer el trabajo por usted:

use Path::Class; 

my @files; 
dir('.')->recurse(callback => sub { 
    my $file = shift; 
    if($file =~ /some text/) { 
     push @files, $file->absolute->stringify; 
    } 
}); 

for my $file (@files) { 
    # ... 
} 

Answer 4

Otro módulo excelente a utilizar es File::Find::Rule que oculta parte de la complejidad de File::Find la vez que expone la misma funcionalidad rica .

use File::Find::Rule; 
use Cwd; 

my $cwd = getcwd(); 
my $filelist; 

sub buildFileIndex { 
    open ($filelist, ">", "filelist.txt") || die $!; 

    # File find rule 
    my $excludeDirs = File::Find::Rule->directory 
           ->name('demo', 'test', 'sample', '3rdParty') # Provide specific list of directories to *not* scan 
           ->prune   # don't go into it 
           ->discard;  # don't report it 

    my $includeFiles = File::Find::Rule->file 
          ->name('*.txt', '*.csv'); # search by file extensions 

    my @files = File::Find::Rule->or($excludeDirs, $includeFiles) 
           ->in($cwd); 

    print $filelist map { "$_\n" } @files; 
    return \$filelist; 
}