多子程序变量替换问题：传递字符串至子程序时未初始化值报错

你遇到的错误根源很明确：你在调用printdata时用到的$r是个未初始化的变量——这个$r是你在printdata子程序内部的foreach循环里才用my声明的局部变量，它的作用域只限于循环内部，外部代码根本访问不到它的值，Perl自然会报错。

根据你的代码逻辑，看起来你是想把$printsection和@data里的每个元素拼接起来，然后传给heading打印。下面给你两种靠谱的修复方式：

方式一：传递基础前缀和数据引用（更灵活） #

这种方式让printdata不依赖全局的@data，复用性更强：

my $printsection = "Part";
my @data = qw(12 13 15);

sub heading {
    my $value = $_[0];
    print "$value\n"; # 加换行让输出更易读
}

sub printdata {
    # 接收基础标签前缀和数据数组的引用
    my ($label_base, $data_ref) = @_;
    foreach my $r (@$data_ref) {
        # 在循环内部拼接完整标签
        my $full_label = "$label_base-$r";
        heading($full_label); # 不用&调用，Perl现代写法直接用函数名
    }
}

# 传递前缀和数据数组的引用
printdata($printsection, \@data);

方式二：保持原有结构，只传递前缀 #

如果不想改动太多，只需要把$printsection传给printdata，然后在循环内部完成拼接：

my $printsection = "Part";
my @data = qw(12 13 15);

sub heading {
    my $value = $_[0];
    print "$value\n";
}

sub printdata {
    my $label_prefix = $_[0];
    foreach my $r (@data) {
        # 直接在调用heading时拼接
        heading("$label_prefix-$r");
    }
}

# 只传递前缀，避免在外部使用未定义的$r
printdata($printsection);

额外提醒 #

Perl现在不推荐用&来调用子程序（除非是需要继承当前@_的特殊场景），直接用函数名加参数的写法更规范，也更易读。

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