¿Cómo puedo encontrar el nombre de archivo de un paquete Perl?

Question

Me gustaría traducir un nombre de paquete Perl a la ruta completa del archivo.

say package_name_to_path('Foo::Bar::Baz'); 
/tmp/Foo/Bar/Baz.pm 

Sé que hay un módulo de CPAN para hacer esto? Simplemente no puedo encontrarlo de nuevo?

Answer 1

Si ha cargado el módulo, simplemente mire en% INC pero debe hacerlo por nombre de archivo.

say $INC{"Foo/Bar/Baz.pm"}; 

Si no lo has hecho, puedes utilizar Module :: Util o el programa module_info que viene con Module :: Info.

$ module_info Module::Build 

Name:  Module::Build 
Version:  0.30 
Directory: /usr/local/lib/site_perl 
File:  /usr/local/lib/site_perl/Module/Build.pm 
Core module: no 

O puede acceder a través de @INC manualmente.

my $module = "Foo::Bar"; 

# Convert from Foo::Bar to Foo/Bar.pm 
my $file = $module; 
$file =~ s{::}{/}; 
$file .= ".pm"; 

my $path; 
for my $dir (@INC) { 
    $path = "$dir/$file"; 
    last if -r $path; 
    $path = undef; 
} 

say defined $path ? "$module is found at $path" : "$module not found"; 

(una solución de plataforma cruzada totalmente usaría File :: Spec en lugar de unirse con barras.)

Si usted sólo tiene que encontrar un módulo rápido, perldoc -l funciona bien como se ha mencionado Fayland, pero lo hará no puede encontrar un módulo que no tenga POD.

Answer 2

Doh - Acabo de recordar.

use Module::Util qw(:all); 

$valid = is_valid_module_name $potential_module; 

$relative_path = module_path $module_name; 

$file_system_path = module_fs_path $module_name; 

Answer 3

Bueno, perldoc se puede saber el nombre del archivo:

[fayland@alpha ~]$ perldoc -l Catalyst 
/home/fayland/perl5/lib/perl5/Catalyst.pm 

o buscar en% INC después de haber cargado el módulo.

Gracias.