perl - 为什么map返回一个空数组？

Question

我在 Perl 中遇到一个问题，我不明白。我将其精简为非常短的代码。

为什么 Perl 的 map 函数返回空数组？它不应该返回一个包含 9 个 undef 的数组吗？

sub mySub{
    return;
}

my @arr = (1 .. 9);
my @arr2 = map( mySub($_), @arr );

print @arr . ' ' . @arr2, "\n";

它打印“9 0”。

这可能很简单，但是 perldoc 没有帮助。

Answer 1

对您的问题的更一般的答案是:当不带参数使用 return 时，它返回的值取决于调用上下文:

list context    returns an empty list
scalar context  returns an undefined value

例如:

use strict;
use warnings;
use Data::Dumper;

my (@list);
sub mySub { return }
@list = map(       mySub($_), 1..2); print Dumper(\@list);
@list = map(scalar mySub($_), 1..2); print Dumper(\@list);

输出:

$VAR1 = [];
$VAR1 = [
          undef,
          undef
        ];