perl - 如何从其中一个子例程中获取 Perl 模块的名称？

Question

假设我有一个 Perl 模块My::Module：

package My::Module;

sub foo {
   return $module_name;
}

我会$module_name用什么来代替My::Module？

Answer 1

package My::Module;

sub foo {
   return __PACKAGE__;
}

[更新]以下可能是您正在寻找的内容：

package My::Module;

sub new {
    my $self = {};
    bless $self;
    return $self;
}

sub foo {
    my $self = shift;
    return (caller(0))[3];
}

1;


# test 1: calling foo directly.
print "1: ", My::Module::foo, "\n";
# test 2:  instantiating object, then calling method of object instance.
my $x = My::Module->new;
print "2: ", $x->foo(), "\n";

输出：

$ perl test.pl
1: My::Module::foo
2: My::Module::foo

Answer 2

看看特殊常量__PACKAGE__。这可能是您正在寻找的。

Answer 3

如果您只想获取您所在的脚本的名称：

my $bname=`basename $0`;

print "\n".$bname;