Perl类创建失败求助：代码报错$class未初始化

让我帮你拆解一下代码里的问题，这些都是Perl新手写类时容易踩的坑：

1. 重复shift导致$class未初始化 #

你在new函数里先写了：

my ($class, $student) = @_;

这行已经把调用构造函数时传入的第一个参数（也就是类名Data）赋值给了$class。但紧接着你又执行了：

$class = shift; $student = shift;

这时候@_已经被前面的赋值取空了，所以$class变成了undef——这就是报错里「Use of uninitialized value $class in bless」的直接原因。

2. 错误覆盖对象变量 #

你本来想接收传入的$student参数，但后面直接用：

$student = {_firstName => <>, _lastName => <>, _matric => <>};

把它覆盖成了一个全新的哈希引用，不仅丢了传入的参数，而且<>是从标准输入读取内容，这个逻辑如果没有提前说明，很容易让调用者困惑。

3. 构造函数调用方式错误 #

你用&new;调用构造函数，这种方式不会自动传入类名，还会把当前main包的@_传进去，正确的调用方式应该是Data->new()——Perl会自动把Data作为第一个参数传给new函数。

修正后的完整代码 #

#!/usr/bin/perl
package Data;

sub new {
    # 从@_获取类名和初始化参数（用哈希传参更灵活）
    my ($class, $init_args) = @_;
    
    # 初始化对象属性：优先用传入的参数，没有则读取输入（加提示更友好）
    my $student = {
        _firstName => $init_args->{_firstName} || do { print "Enter first name: "; chomp(my $n = <>); $n },
        _lastName  => $init_args->{_lastName}  || do { print "Enter last name: "; chomp(my $n = <>); $n },
        _matric    => $init_args->{_matric}    || do { print "Enter matric number: "; chomp(my $n = <>); $n }
    };
    
    # 用正确的$class来绑定对象
    bless $student, $class;
    
    # 构造函数必须返回对象引用，否则调用者拿不到创建的对象
    return $student;
}

# 正确调用构造函数：可以传初始参数，也可以留空让程序提示输入
my $student_obj = Data->new({
    # _firstName => "John",
    # _lastName => "Doe",
    # _matric => "20240001"
});

# 测试打印对象属性
print "\nStudent Info:\n";
print "First Name: " . $student_obj->{_firstName} . "\n";
print "Last Name: " . $student_obj->{_lastName} . "\n";
print "Matric Number: " . $student_obj->{_matric} . "\n";

修正说明 #

• 移除了重复的shift操作，直接从@_获取类名和参数
• 给输入操作加了提示信息，避免用户不知道要输入什么
• 构造函数返回对象引用（这是Perl类的标准规范）
• 支持两种初始化方式：传入参数或者交互式输入
• 打印时访问具体属性，而不是直接打印哈希引用（避免输出HASH(0x...)这类无意义的内容）

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