如何正确向Perl子程序传递哈希与标量？

你的代码报错根源在于Perl的列表扁平化特性：调用foo(('x' => 'y'), 'bar')时，('x' => 'y')会被展开为两个独立元素'x'和'y'，因此子程序的@_参数列表实际是('x', 'y', 'bar')。你用my ($hash, $s) = @_接收时，$hash被赋值为字符串'x'，而非预期的哈希结构，后续%$hash试图将字符串当作哈希引用使用，触发了strict refs的限制报错。另外你代码里的print %e{'x'}写法错误，哈希元素的访问应该用$e{'x'}（%用于指代整个哈希，不能直接用来访问单个元素）。

正确传递哈希与标量的核心是避免列表扁平化问题，最可靠的方式是传递哈希引用：

方式一：传递哈希引用 #

将哈希用{}包裹转为引用传递，子程序内通过引用访问哈希元素：

# 调用时传递哈希引用
foo({ 'x' => 'y' }, 'bar');

use strict;

sub foo {
  my ($hash_ref, $s) = @_;
  # 直接通过引用访问哈希元素
  print $hash_ref->{'x'};
  print $s;
}

如果需要在子程序内复制哈希到本地变量，也可以这样写：

foo({ 'x' => 'y' }, 'bar');

use strict;

sub foo {
  my ($hash_ref, $s) = @_;
  # 解引用哈希引用，复制到本地哈希
  my %e = %$hash_ref;
  print $e{'x'};
  print $s;
}

方式二：传递完整哈希（不推荐，易出问题） #

如果一定要传递完整哈希，必须将哈希放在参数列表的最后，因为哈希会被扁平化，后续的标量会被忽略（Perl会将列表元素成对解析为哈希的键值对，单个剩余元素会被丢弃）：

my %hash = ('x' => 'y');
foo(%hash, 'bar'); # 不推荐，'bar'会被丢弃

use strict;

sub foo {
  my (%e, $s) = @_; # $s会得不到值，不推荐这种写法
  print $e{'x'};
}

显然，传递哈希引用的方式更清晰、更可靠，尤其在需要传递多个复杂结构参数时，能避免参数混淆的问题。

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