perl - 使用带括号和只有一个变量的 my

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