这个错误本质上是Perl在直白地提醒你：你拿到了哈希里的子程序引用，但根本没去执行它，这完全是无用操作。

先拿你大概率写错的代码场景举个例子（刚好对应你说的第9行报错）：

#!/usr/bin/perl
use strict;
use warnings;

my %sub_hash = (
    say_hi => sub { print "Hi there!\n"; },
);

$sub_hash{say_hi};  # 这里就是问题所在！第9行

你这里只是访问了%sub_hash里的say_hi元素（也就是那个子程序引用），但没有触发它执行。Perl看到你在void上下文（既不把结果赋值给变量，也不执行任何动作）里干了这件事，就会抛出那个警告。

正确的调用方式有两种： #

1. 箭头调用语法（最常用，可读性高）：

$sub_hash{say_hi}->();

如果需要传参数，直接把参数放在括号里就行：

$sub_hash{say_hi}->("Alice");

2. 解引用调用语法：

&{$sub_hash{say_hi}}();

同样，传参数的话：

&{$sub_hash{say_hi}}("Bob");

完整的可运行示例 #

下面给你一个完整的正确实现，包含带参数的子程序调用：

#!/usr/bin/perl
use strict;
use warnings;

# 构建子程序哈希
my %operations = (
    greet => sub {
        my ($name) = @_;
        print "Hello, $name!\n";
    },
    calculate_sum => sub {
        my ($num1, $num2) = @_;
        return $num1 + $num2;
    },
);

# 调用greet子程序
$operations{greet}->("Charlie");

# 调用calculate_sum子程序并获取返回值
my $total = $operations{calculate_sum}->(10, 20);
print "10 + 20 = $total\n";

关键点总结 #

• 哈希里存储的是子程序引用（用sub { ... }定义的匿名子程序，或者用\&sub_name获取的现有子程序引用），不是子程序名。
• 要执行引用指向的子程序，必须通过->()或者&{}来显式解引用调用，不能只访问哈希元素。
• 开启use strict和use warnings是个好习惯，能帮你快速定位这类语法逻辑问题。

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