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

Question

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

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

也可以以相同的方式重新分配多个变量值：

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

然而，当我尝试用加号等于运算符做同样的事情时，

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

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

Answer 1

它只是偶然地部分工作，它真的不能那样工作吗？

是的。

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

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.

---

有没有办法做到这一点？

当然，有无限多。这里有三个：

$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]};

Answer 2

的简写版本+=应该可以工作：

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