开启use strict后Perl对象成员访问语法及成员函数定义疑问

先看你可能的Java实现示例（参考常见写法）：

public class Person {
    private String name;
    private int age;

    public Person(String name, int age) {
        this.name = name;
        this.age = age;
    }

    public void sayHello() {
        System.out.printf("Hello, I'm %s, %d years old.%n", name, age);
    }

    public String getName() {
        return name;
    }
}

// 使用示例
Person p = new Person("Alice", 30);
p.sayHello();
System.out.println(p.getName());

你报错的Perl代码（推测） #

use strict;
use warnings;

package Person;

sub new {
    my $class = shift;
    my $self = {
        name => shift,
        age => shift,
    };
    return $self;
}

sub sayHello {
    print "Hello, I'm $self->{name}, $self->{age} years old.\n";
}

sub getName {
    return $self->{name};
}

# 使用部分
my $p = Person->new("Alice", 30);
$p->sayHello();
print $p->getName() . "\n";

编译错误信息 #

Global symbol "$self" requires explicit package name (did you forget to declare "my $self"?) at script.pl line 12.
Global symbol "$self" requires explicit package name (did you forget to declare "my $self"?) at script.pl line 16.
Execution aborted due to compilation errors.

错误原因分析 #

1. 对象未被bless：Perl里的对象不是天生的，必须把引用（通常是哈希）通过bless绑定到对应的包（类）。你直接返回哈希引用，它只是普通的引用，不是Person类的实例，调用方法时无法正确传递对象参数。
2. 实例方法未接收对象参数：Perl的实例方法调用（$obj->method()）会自动把$obj作为第一个参数传给方法。你的sayHello和getName没有接收这个参数，也没声明$self，在use strict模式下，未声明的全局变量会直接报错。
3. 封装逻辑缺失：虽然Perl没有强制私有成员，但直接在方法外访问$obj->{name}不符合OO封装原则，且use strict下如果引用不是哈希类型还会出问题，但这里主要问题还是前两点。

正确的Perl实现 #

类定义（可以放在单独的Person.pm文件，或者同一脚本内）

use strict;
use warnings;

package Person;

# 构造函数：new方法
sub new {
    # 接收类名和构造参数
    my ($class, $name, $age) = @_;
    # 创建哈希引用并绑定到当前类
    my $self = bless {
        name => $name,
        age  => $age,
    }, $class;
    return $self;
}

# 实例方法：必须接收$self作为第一个参数
sub sayHello {
    my $self = shift;
    print "Hello, I'm $self->{name}, $self->{age} years old.\n";
}

# Getter方法
sub getName {
    my $self = shift;
    return $self->{name};
}

# Setter方法（可选，用于修改成员）
sub setAge {
    my ($self, $new_age) = @_;
    # 简单参数校验
    $self->{age} = $new_age if $new_age > 0;
}

1; # Perl模块必须以1结尾，确保加载成功

使用示例

use strict;
use warnings;
use Person; # 如果类在单独文件里需要这句，同一脚本内可省略

my $p = Person->new("Alice", 30);
$p->sayHello();
print "Name: " . $p->getName() . "\n";

$p->setAge(31);
$p->sayHello();

关键知识点总结 #

• bless是Perl OO的核心：它把引用标记为某个类的实例，让Perl能识别方法调用的目标。
• 方法的参数规则：
  • 实例方法：第一个参数永远是对象实例（习惯命名为$self），后续是调用时传入的参数。
  • 类方法：第一个参数是类名（比如Person->create_default()，第一个参数是"Person"）。
• use strict下的成员访问：
  • 方法内部：通过$self->{key}访问哈希成员是合法的，因为$self是方法内声明的变量。
  • 方法外部：虽然语法上允许直接$p->{name}，但强烈建议通过getter/setter方法访问，遵循封装原则。
• Perl OO的本质：没有专门的类语法，类就是包，对象是被bless的引用，方法就是包内的子例程，这和Java/C#/Python的OO模型差异很大，需要适应这种“轻量级”的实现方式。

内容的提问来源于stack exchange，提问作者Pete