Использование неинициализированного значения дополнительно

Question

Результат следующей программы дает мне предупреждение.

Использование неинициализированного значения в дополнение (+)

Почему неинициализированным "+"? Как я могу это исправить?

#/usr/bin/perl -w 
use List::MoreUtils qw(pairwise); 

my @result_list=(); 
my @list1=qw(1 23 321 11 324); 
my @list2=qw(23 43 46 45 213 435); 
@result_list=pairwise { $a + $b } @list1,@list2; 
print "@list1\n@list2\n@result_list\n"; 

Answer 1

Исправление легко: не использовать pairwise на массивы различной длины. Или заменить недостающие значения нулями:

my @result_list = pairwise { ($a || 0) + ($b || 0) } @list1, @list2; 

В Perl 5.10+, вы можете использовать «определенный или» оператор // вместо «или» ||.