多重赋值给 Perl 中先前定义的变量

Question

如何为 Perl 中先前声明的变量分配返回值？有没有办法做这样的事情：

use strict;
use warnings;
my ($a, $b, $c) = first_assign();
 # let's say $a = "a", $b = "b", $c = "c"

($a, $b, $c) = second_assign();

# let's say we expect them to be "aa", "bb" and "cc" correspondingly

在这种情况下，所有这些变量都将等于''。那么，是否有一些特殊的方法可以一次分配给许多先前声明的？

Answer 1

只需从您的分配方法中返回一个元组：

use strict;
use warnings;

my ($a, $b, $c) = first_assign();
print "a = $a, b = $b, c = $c\n";

($a, $b, $c) = second_assign();
print "a = $a, b = $b, c = $c\n";

sub first_assign {
  return ('a', 'b', 'c');
}

sub second_assign {
  return ('aa', 'bb', 'cc');
}

这会产生以下输出：

a = a, b = b, c = c
a = aa, b = bb, c = cc