¿Cómo puedo pasar un parámetro a la función deseada cuando uso Perl's File :: Find?

Question

Duplicar posible:
How do I pass parameters to the File::Find subroutine that processes each file?

Uno puede utilizar el módulo de Perl File::Find así:

find(\&wanted, @directories); 

¿Cómo podemos añadir un parámetro a la función wanted?

Por ejemplo, quiero recorrer los archivos en /tmp extrayendo algo de información de cada archivo y el resultado debe almacenarse en un directorio diferente. El dir de salida debe darse como un parámetro.

Answer 1

utiliza un cierre:

use File::Copy; 

my $outdir= "/home/me/saved_from_tmp"; 
find(sub { copy_to($outdir, $_); }, '/tmp'); 

sub copy_to 
    { my($destination_dir, $file)= @_; 
    copy $file, "$destination_dir/$file" 
     or die "could not copy '$file' to '$destination_dir/$file': $!"; 
    } 

Answer 2

File::Find El contrato especifica qué información se pasa a &wanted.

La función deseada no toma argumentos, sino que hace su trabajo a través de una colección de variables.

• $File::Find::dir es el nombre del directorio actual,
• $_ es el nombre del archivo actual dentro de ese directorio
• $File::Find::name es la ruta completa al archivo.

Si hay alguna información adicional que desee que estén disponibles en la devolución de llamada, puede create a sub reference that calls your wanted sub with the desired parameters.

Answer 3

Puede crear cualquier tipo de referencia de código que desee. No tiene que usar una referencia a una subrutina con nombre. Para obtener muchos ejemplos de cómo hacer esto, consulte mi módulo File::Find::Closures. Creé ese módulo para responder precisamente a esta pregunta.