perl - 包含私有(private)变量的圆括号。为什么在这种情况下使用？

Question

我正在阅读 Learning Perl 6th edition ，子程序章节有这个代码:

foreach (1..10) {
  my($square) = $_ * $_; # private variable in this loop
  print "$_ squared is $square.\n";
}

现在我明白了列表语法，即括号，用于区分列表上下文和标量上下文，如下所示:

my($num) = @_; # list context, same as ($num) = @_;
my $num = @_; # scalar context, same as $num = @_;

但是在 foreach 循环案例中，我看不到列表上下文是如何合适的。

我可以将代码更改为:

foreach (1..10) {
  my $square = $_ * $_; # private variable in this loop
  print "$_ squared is $square.\n";
}

它的工作原理完全相同。那么，当可以使用简单的 my $square 代替时，为什么作者使用 my($square) 呢？

在这种情况下有什么区别吗？

Answer 1

当然，在这种情况下，括号不是必需的。从某种意义上说，他们确实按照作者的意图行事，这并不是严格意义上的错误。与 Perl 中的许多内容一样，there's more than one way to do it .

所以有一个潜在的问题:为什么作者选择这样做？起初我想知道这是否是作者的首选风格:也许他总是选择将新变量列表放在括号中，这样就可以:

my ($count) = 4;

在括号没有任何帮助的地方，至少看起来与以下内容一致:

my ($min, $max) = (2, 3);

但是纵观整本书，除了您引用的部分之外，我找不到一个使用括号来表示单个值的示例。作为众多例子之一， m//在列表上下文中 第 9 章中的部分包含 my 的各种不同用途。带有赋值，但不使用带有任何单个值的括号。

我得出的结论是，正如作者介绍的 my在带有 my($m, $n); 的子程序中他试图在下次使用时尽可能少地改变语法，最终得到 my($max_so_far)然后尝试解释标量和列表上下文，如您在上面引用的。我不确定这是否非常有用。

TL;DR 没有必要，尽管它实际上并没有错。在您的代码中避免这种风格可能是一个好主意。