perl - 这个 Perl foreach 循环中的 $_ 来自哪里？

Question

我在 Mail::IMAPClient 中找到了这个.哪里有$_在 $SEARCH_KEYS{ uc($_) }来自？

sub _quote_search {
    my ( $self, @args ) = @_;
    my @ret;
    foreach my $v (@args) {
        if ( ref($v) eq "SCALAR" ) {
            push( @ret, $$v );
        }
        elsif ( exists $SEARCH_KEYS{ uc($_) } ) {
            push( @ret, $v );
        }
        elsif ( @args == 1 ) {
            push( @ret, $v );    # <3.17 compat: caller responsible for quoting
        }
        else {
            push( @ret, $self->Quote($v) );
        }
    }
    return @ret;
}

Answer 1

在我看来，这就像一个错字，作者在其中转换了匿名 for 循环 foreach (@args)到一个带有显式迭代器变量 foreach my $v (@args)忘记转换 $_ 的所有发生率至 $v .

您可能应该针对 CPAN 上的发行版提交错误。