Perl «скалярная» функция возвращает «1» на пустой массив

Question

Следующий код Perl напечатает «1», однако функция test2 действительно не имеет законного входного значения. Почему Perl действует таким образом?

test(); 

sub test { 
    my ($var) = @_; 

    test2($var); 
} 

sub test2 { 
    my (@array) = @_; 
    print scalar @array; 
} 

Answer 1

test2($var) проходит один скаляр к test2 ($var), так что один скалярная присваивается @array от my (@array) = @_;.

значение скаляра в вопросе ($var) является undef, так как вы не назначен «ничего» в $var в my ($var) = @_;.

Может быть, вы хотите test2(@_) (проходит нулевой скаляры в @_) вместо test2($var) (проходит один скаляр $var)?

Answer 2

Внутри test, $var устанавливается в undef заданием. Поэтому ваш вызов test2 передает список с одним элементом, undef.