perl - 在一行 Perl 中执行多个 +=

Question

在 Perl 中，可以像这样实例化多个变量:

my ($a, $b, $c) = (1,2,3);

也可以用同样的方式重新分配多个变量值:

($a, $b, $c) = (4,5,6);

但是，当我尝试用加等于运算符做同样的事情时，

($a, $b, $c) += (7,8,9);

只有$c被正确添加，其他变量保持原值。这在 Perl 中应该是可能的，还是它只是偶然地部分工作并且它真的不能那样工作？如果后者是真的，有没有办法在一行中解决这个问题？

Answer 1

is it just partially working by accident and it really doesn't work that way?

是的。

标量上下文中的列表运算符依次计算其每个操作数，并返回其最后一个操作数的计算结果。所以你基本上是在做以下事情:

do { $a; $b; $c } += do { 7; 8; 9 };

这就是为什么你得到以下结果

Useless use of a constant (7) in void context at -e line 1.
Useless use of a constant (8) in void context at -e line 1.
Useless use of a variable in void context at -e line 1.
Useless use of a variable in void context at -e line 1.

---

is there a way to to this in one line?

当然，有无限多。这是三个:

$a += 7; $b += 8; $c += 9;

${$_->[0]} += $_->[1] for [\$a,7],[\$b,8],[\$c,9];

use List::MoreUtils qw( pairwise );
pairwise { $$a += $b; } @{[\$x,\$y,\$z]}, @{[7,8,9]};