Comment trouver le nom de fichier d'un paquet Perl?

Question

Je voudrais traduire un nom de paquet Perl au chemin complet du fichier.

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

Je sais qu'il existe un module CPAN pour cela? Je ne peux pas le trouver à nouveau?

Answer 1

Si vous avez chargé le module, regardez dans% INC mais vous devez le faire par nom de fichier.

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

Si ce n'est pas le cas, vous pouvez utiliser Module :: Util ou le programme module_info fourni avec 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 

Ou vous pouvez passer par @INC manuellement.

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"; 

(une solution de plate-forme entièrement cross utiliserait File :: Spec au lieu de se joindre à des barres obliques.)

Si vous avez juste besoin de trouver un module rapide perldoc -l, fonctionne bien comme Fayland mentionné, mais il ne parvient pas à trouver un module qui n'a pas de POD.

Answer 2

Doh - Je me suis juste souvenu.

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

Eh bien, perldoc peut vous dire le nom du fichier:

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

ou consultez% INC après avoir chargé le module.

Merci.