Wie finde ich den Dateinamen eines Perl-Pakets heraus?

Question

Ich möchte einen Perl-Paketnamen in den vollständigen Pfad der Datei übersetzen.

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

Ich weiß, dass es ein CPAN-Modul gibt, um dies zu tun? Ich kann es einfach nicht wieder finden?

Answer 1

Wenn Sie das Modul geladen haben, schauen Sie einfach in% INC, aber Sie müssen es nach Dateiname tun.

Wenn nicht, können Sie Module :: Util oder das Modulmodul, das mit Module :: Info geliefert wird, verwenden.

Oder Sie können @INC manuell durchlaufen.

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

(Eine voll Cross-Plattform-Lösung würde Datei verwenden :: Spec statt mit Schrägstrichen anzuschließen.)

Wenn Sie nur ein Modul schnell finden müssen, perldoc -l funktioniert gut als Fayland erwähnt, aber es wird finde kein Modul, das kein POD hat.

Answer 2

Doh - ich erinnerte mich gerade.

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

Nun, Perldoc können Sie den Dateinamen sagen:

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

oder in% INC aussehen, nachdem Sie das Modul geladen haben.

Danke.