如何通过文件名获取模块名称？

Question

我有模块Foo::Bar::Baz，它位于/some_path/Foo/Bar/Baz.pm，以及从/some_path/Foo/Bar 运行的perl 脚本。脚本需要分析此文件夹中的所有模块。

如何通过文件名 (Baz.pm) 获取模块名称 (Foo::Bar::Baz) ？我不能只修剪.pm 结尾，而且@INC 中的lib 路径是不确定的

首先我应该使用Module::Info的new_from_file和name方法，但不幸的是

使用 new_from_file() 加载的模块不会包含此信息

看起来我需要一些模块来进行静态代码分析。有人知道它的名字吗？

Answer 1

包名不需要与加载它的文件名相匹配，或者for the first package to。但是对于任何你可以正常use 甚至一些奇怪的模块，Module::Metadata 可以找到这些信息。作为一般规则，无论当前目录如何，您都应该使用绝对文件名，这可能会有所帮助。 （File::Spec 和 Path::Tiny 可以提供帮助）

use strict;
use warnings;
use Module::Metadata;
my $metadata = Module::Metadata->new_from_file('/path/to/File.pm');
my $package = $metadata->name;

Answer 2

我使用PPI 来分析（和重写）perl 代码。我记得，有点学习曲线，但效果相当好。在您的情况下，您实际上只需要从文件中找到 package <...> 语句。任何比这更复杂的东西，比如有人使用autopackage，PPI 也可能无法提供帮助。

Answer 3

如果不解析文件，基本上你不能。 正确的方法是使用一些标准的 perl 模块，例如 https://perldoc.pl/Module::Metadata，但是如果你想自己做，使用下面的 sn-p 你可以从每个文件中提取所有命名空间（是的..文件只是一个容器，所以你里面可能有更多的包）。

快速而肮脏的方式：

my $PACKAGES ;
my @files = ('lib/Foo.pm','lib/Bar.pm') ;
my $row ;
map {
    open PKGFILE , '<', $_ or die "Got error opening file $_: $!" ;
    while ( $row = <MODULE>){
        if ( $row =~ /\s*package\s+([\S]+)(.*?)[;{]/ ){
            # rx modified on Grinnz review
            push @{$PACKAGES->{ $_ }} , $1 ;
            # last ; # <== uncomment if you are sure each file 
                     #     contains only one package
        } ;
    }
    close PKGFILE ;
} @files ;

假设我们有两个文件：

1) lib/Foo.pm（里面有2个包）

package Banana::Joe 0.003 ;

...code...

package Papaya::Frank 0.001 ;

...code...

1 ;

2) lib/Bar.pm

package Apple::Steve 0.013 ;

...code...

1 ;

$PACKAGES 将是：

 {
   'lib/Bar.pm' => [
                     'Apple::Steve'
                   ],
   'lib/Foo.pm' => [
                     'Banana::Joe',
                     'Papaya::Frank'
                   ]
 };