perl - 将字符串和临时数组传递到 1 行中的 sub 中？

Question

我做了一个子程序，我想将一个字符串和一个数组传递给:

sub pass_in {
    my ($str, $array) = @_;
    for my $e (@$array) {
        print "I see str $str and list elem: $e\n";  
    }
    return 0;
}

my @temp_arr =  qw(A B C D E);
my $str = "hello";
pass_in( $str, \@temp_arr );

这工作正常，但我不想创建 temp_arr .有可能吗？

不起作用:

pass_in( $str, qw(A B C D E));

也不起作用:

pass_in( $str, \qw(A B C D E));

我不想创建临时变量。

Answer 1

您可以使用方括号创建对数组的引用:

pass_in( $str, [qw(A B C D E)]);

perldoc perlref