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

发布时间：2020-12-16 06:28:21 所属栏目：大数据来源：网络整理

导读：我多年没有使用过Perl但是必须处理一些旧的代码. 我创建了一个子程序,我想将一个字符串和一个数组传递给： sub pass_in { my ($str,$array) = @_; for my $e (@$array) { print "I see str $str and list elem: $en"; } return 0;}my @temp_arr = qw(A B C

我多年没有使用过Perl但是必须处理一些旧的代码.

我创建了一个子程序,我想将一个字符串和一个数组传递给：

sub pass_in {
    my ($str,$array) = @_;
    for my $e (@$array) {
        print "I see str $str and list elem: $en";  
    }
    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));

所以我不必创建临时变量？

解决方法

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

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

perldoc perlref

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!