perl - 取消引用传递给子例程的哈希引用

Question

我正在研究一些示例代码，并试图弄清楚为什么它可以与 $args 周围的括号一起使用。没有它，我就无法获得价值。

sub random_dice{
  my ($args) = @_;
  my $number_of_rolls = $args->{number_of_rolls} || 6;
  ...
}

# I don't understand why it works with the brackets around $args
my $r = random_dice({number_of_rolls=>5});

Answer 1

它之所以有效，是因为您将匿名哈希传递给您的 random_dice 子例程。

my ($args) = @_; # sets $args as element of @_. Not as an array

$args 现在是对哈希的引用

$args = {
   number_of_rolls => 5
};

这通常用作在 Perl 中具有命名参数的方法

Answer 2

像这样：

my $args = @_;

赋值是在标量上下文中进行的，因此 $args 被赋值为 1（数组中的元素数）。

但是像这样：

my ($args) = @_;

分配是在列表上下文中进行的。右侧数组中的值被解包并分配给左侧数组的元素。

Answer 3

如果你想使用更简单的

my $r = random_dice( number_of_rolls => 5 );

潜艇必须改为

sub random_dice{
  my %args = @_;
  my $number_of_rolls = $args{number_of_rolls} || 6;
  ...
}