Perl中的变量$ self未定义

Question

我正在编写一个Perl脚本，该脚本利用了Perl模块Module.pm。

Module.pm就像这样：

package Module;
use strict;
use warnings;

sub getInfo {

    my $self = shift;
    #my $var = shift;

    if (!$self)
    {
        my $errmsg = "My ERROR MESSAGE";
        return [1, $errmsg];
    }

    return [1, $self];
}1;

我这样称呼它：

use Module

my $result = Module::getInfo();

但是我在第＃行不断收到致命错误（在Module.pm）未定义的对象。 这是为什么？

此外，如果我删除了getInfo（）子例程中的第一个注释，并在调用行中添加了另一个参数，那么我不会得到相同的错误。 为什么？ 我以为我不必发送Module对象作为参数来调用子例程？

这是使用Perl 5.8.8的Linux服务器。

Answer 1

调用包的成员函数时，仅当使用->表示法时，包名称才作为隐式第一个参数传递。 这被称为“方法调用”； 它还可以搜索类层次结构以确定要调用的内容。 如果前缀是类名，则隐式第一个参数是程序包的名称（以字符串形式）。 如果前缀是对象引用，则隐式第一个参数是该对象引用。

使用::表示法，这是一个普通的子例程调用，没有隐式的第一个参数。

例如：

% cat foo.pl
#!/usr/bin/perl

use strict;
use warnings;
use v5.10;

package M {
    sub getInfo {
        my($self) = shift;
        say "\$self = ", ($self // 'undef');
    }

    1;
};

M::getInfo();
M->getInfo();
% ./foo.pl
$self = undef
$self = M
% 

将Module::getInfo()更改为Module::getInfo() Module->getInfo() 。

Perl文档中对此进行了更详细的讨论：

• perldoc perlsub （子例程）
• perldoc perlobj （对象参考）
• perldoc perlootut （Perl教程中的面向对象编程）

较旧的Perl版本有perltoot和perlboot教程。 从5.20（或更早）开始，它们已被perlootut取代。