Проводите + = в одной строке 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

это только частично работает случайно, и это действительно не работает таким образом?

Да.

Оператор списка в скалярном контексте оценивает каждый из своих операндов по очереди и возвращает то, что оценивает его последний операнд. Таким образом, вы в основном делаете следующее:

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)