Question

我有时会看到像这样的Perl代码：

my ( $variable ) = blah....

将括号括在单个变量周围有什么意义？我认为括号仅在声明多个变量时使用，例如：

my ( $var1, $var2, $var3 ) = blah...

Answer 1

有几种情况存在差异：

当数组位于右侧时

my @array = ('a', 'b', 'c');
my  $variable  = @array;           #  3   size of @array
my ($variable) = @array;           # 'a'  $array[0]

当列表位于右侧时

my  $variable  = qw/ a b c d /;    # 'd'  last  item of the list
my ($variable) = qw/ a b c d /;    # 'a'  first item of the list

带变量（数组/标量）的子程序返回值

sub myFunction {
  ...
  return (wantarray() ? @array : $scalar);
}
my  $variable  = myFunction(...);  # $scalar   from the subroutine
my ($variable) = myFunction(...);  # $array[0] from the subroutine

Answer 2

括号创建一个列表上下文，该上下文会影响如何评估赋值的右侧。

比较

my $x = grep { /s/ } qw(apples bananas cherries);
print $x;

与

my ($x) = grep { /s/ } qw(apples bananas cherries);
print $x;

you just want to grab the first element of a list and discard the rest时，您经常会使用此结构。

Answer 3

我不是Perl专业人士（无论如何，我不是），但AFAIK与列表有关。 Perl有不同的上下文（标量，列表）。使用($var)开关列出上下文，$var是标量上下文。

my $var = (1, 2, 4); # $var = 4 (last element)
my ($var) = (1, 2, 4); # $var = 1

如果完全错误，请低估这个答案：）

Answer 4

你混淆了两件不同的事情。首先，当使用my声明多个变量时，需要使用括号：

my $foo, $bar;

不起作用，因为它被认为是两种不同的陈述：

my $foo;
$bar;

因此，您需要使用括号将参数组合到函数 my的参数列表中：

my($foo, $bar);

其次，您有明确的分组以调用列表上下文：

$foo, $bar = "a", "b"; # wrong!

将被视为三个单独的陈述：

$foo;
$bar = "a";
"b";

但如果您使用括号将$foo和$bar分组到列表中，则赋值运算符将使用列表上下文：

($foo, $bar) = ("a", "b");

奇怪的是，如果删除RHS括号，您还会遇到一个hickup：

($foo, $bar) = "a", "b"; # Useless use of a constant (b) in void context

但这是因为=运算符的优先级高于逗号,，您可以在perlop中看到。如果您尝试：

my @array = ("a", "b");
($foo, $bar) = @array;

您将获得没有括号的所需行为。

现在要完成圈子，让我们删除上面的列表上下文，看看会发生什么：

my @array = ("a", "b");
$foo = @array;
print $foo;

这会打印2，因为数组是在标量上下文中计算的，而标量上下文中的数组会返回它们包含的元素数。在这种情况下，它是2。

因此，这些语句使用列表上下文：

my ($foo) = @array;          # $foo is set to $array[0], first array element
my ($bar) = ("a", "b", "c"); # $bar is set to "a", first list element

这是一种覆盖标量赋值中隐含的标量上下文的方法。为了比较，这些分配在标量上下文中：

my $foo = @array;            # $foo is set to the number of elements in the array
my $bar = ("a", "b", "c");   # $bar is set to "c", last list element

Answer 5

我已在其他网站上发布了有关该主题的深入explanation。

[我不能在这里发布。 StackOverflow不支持表。并非任何人通常都有异地链接到文档的问题。]

使用括号和仅一个变量

5 个答案: