如何更优雅地多次调用print_hash函数并传入不同参数？

嘿，这个场景太常见啦——重复调用同一个函数处理不同的相似参数，确实可以优化得更简洁优雅，而且后续维护起来也更省心！给你几个实用的方案：

方案1：用数组存储参数，循环遍历调用 #

把你要处理的哈希（假设你这里的@hash1是笔误，实际是Perl的哈希%hash1，毕竟要打印键值对嘛）放进一个数组里，然后循环遍历这个数组来调用print_hash：

# 先把哈希的引用放进数组
my @target_hashes = (\%hash1, \%hash2, \%hash3);

# 循环调用函数
foreach my $hash_ref (@target_hashes) {
    print_hash($hash_ref);
}

如果你的print_hash原本是接收哈希而非哈希引用（比如函数定义是sub print_hash { my %hash = @_; ... }），那可以在调用时解引用：

foreach my $hash_ref (@target_hashes) {
    print_hash(%$hash_ref);
}

这个方案的好处是，以后如果要新增更多需要打印的哈希，只需要往@target_hashes里加元素就行，不用重复写print_hash调用，扩展性拉满。

方案2：用Perl的隐式循环一行搞定 #

如果你的参数数量不多，而且不想多定义一个数组，可以直接用Perl的for隐式循环，一行代码就能完成所有调用：

# 直接遍历哈希引用列表，调用函数
print_hash($_) for (\%hash1, \%hash2, \%hash3);

# 要是函数需要接收哈希而非引用，就改成：
print_hash(%$_) for (\%hash1, \%hash2, \%hash3);

这个写法非常简洁，适合参数固定且数量不多的场景，读起来也一目了然。

不管选哪种方案，核心思路都是消除重复代码，把重复的调用逻辑抽象成循环，让代码更整洁也更容易维护～

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