关于 Perl 映射函数的建议

Question

我很难理解下面 Perl 脚本中 map 函数的行为

my @list = qw/A C T G/;
my @curr = (0, undef, undef, 1);
my @res = map { $list[ $_ ] } @curr;
print @res; #prints AAAC

@res 的值为AAAC。我原以为它只是AC，因为@curr 的两个中间值是undef。

我对map的理解是列表中的每一项依次变成$_的值。所以我可以理解$list[0] 如何返回A 以及$list[1] 如何返回C。我不明白undef 值为什么/如何返回A？在我看来$list[undef] 不会是一个值？

我可能在这里遗漏了一些明显的东西，但非常感谢您的帮助

我从中获取此代码的脚本如下。我在调试器中单步执行它，我可以在sub gen_permutate返回的最后一行看到这种行为

my @DNA = qw/A C T G/;
my $seq = gen_permutate(14, @DNA);

while ( my $strand = $seq->() ) {
print "$strand\n";

}

sub gen_permutate {
    my ($max, @list) = @_;
    my @curr;
    
    return sub {
        if ( (join '', map { $list[ $_ ] } @curr) eq $list[ -1 ] x @curr ) {
            @curr = (0) x (@curr + 1);
        else {
            my $pos = @curr; 
            while ( --$pos > -1 ) {
                ++$curr[ $pos ], last if $curr[ $pos ] < $#list; 
                $curr[ $pos ] = 0;
            }
        }
        return undef if @curr > $max;
        return join '', map { $list[ $_ ] } @curr; 
    };
}

J

Answer 1

这是“DWIM”的一部分——数组索引需要是一个数字，所以传入的内容被转换为一个，尽可能解释器可以做/猜测。在undef 的情况下，至少很清楚——变成0。

但这确实是一个编程错误，或者至少是草率。

做你想做的事：

my @res = map { $list[ $_ ] } grep { defined } @curr;

或者，在列表的一次迭代中

my @res = map { defined $_ ? $list[$_] : () } @curr;

这里由() 表示的空列表被展平到返回列表中，因此消失了；所以我们也在map 内部过滤。但是这个三元组的重点是能够放一些有意义的东西，如果需要删除一些输入，那么首先有一个明确的grep 会更清楚。

注意 使用use warnings;，您会听到所有相关信息

在...的数组元素中使用未初始化的值 $_

（它会将其转换为数字）

每个脚本确实必须以use warnings;（和use strict;）开头。有时，继承旧脚本的最重要部分是立即将use warnings; 粘贴在顶部（并通过全屏消息工作:(。

Answer 2

我想回答我自己的问题，undef 有时被视为零。这就是为什么 $list[undef] 与 $list[0]

相同的原因