使用“\”通过引用子程序来传递哈希：my_subroutine(%my_hash)

Question

如何在不使用 \ 字符的子例程调用表达式（如 my_subroutine(%my_hash)）中通过引用子例程来传递哈希？

---

更多解释：（以防前面的单行问题描述性不够）

通过引用子程序传递变量而不使用\ 字符在像my_subroutine($my_var) 这样的子程序调用表达式中可以通过这样定义子程序来实现：

sub my_subroutine {
    my $var_ref = \shift;
    ...
}

我已经尝试过使用哈希的相同方法，但它不能正常工作：

sub my_subroutine {
    my $hash_ref = \shift;
    ...
}

我认为这是因为 perl 将任何传入的散列键值对分段到列表（一维数组）中，即@_，对传入的数组也是如此（但仅对于不使用的值）键）。

我正在寻找一种解决方法，以使my_subroutine(%my_hash) 通过引用传递哈希，而无需在每次调用子例程时都在我的子例程参数（哈希）前面加上反斜杠字符\。这将有助于使我的主代码看起来更整洁，并让不整洁的部分留给子例程的内部。此外，如果我与一大群开发人员一起工作，有人可能会忘记添加引用字符。我需要在子例程中设置它（哈希总是通过引用 my_subroutine 传递），而不是由调用 my_subroutine 的其他开发人员来设置。

Answer 1

Prototypes may still considered bad，但您可以在这里使用它们来实现您的目标。

sub my_subroutine (\%) {
    my $hashref = shift;
    ...
}

my_subroutine(%hash);

使用原型，子例程的第一个参数被强制为哈希引用。

请注意，在子例程中，哈希作为哈希引用被接收。您还需要使用命名散列调用子例程。

my_subroutine( { "anonymous" => "hash", "not" => "OK" } );  # not OK with proto

Answer 2

这样的事情怎么样：

#!/usr/bin/perl
use warnings;
use strict;
use Data::Printer;

my %h1 = ( a => 10, b => 20);
mySub(%h1);

sub mySub {
    my ($h1) = {@_};
    p $h1;
}