perl函数中传递数组的方法

来源:互联网 发布:mac版梦幻西游更新失败 编辑:程序博客网 时间:2024/03/29 15:17

传数组引用,在子函数中,接受到引用后,再解引用。

sub func
{
        my($a,$b,$c) = @_;    # 这里$b,$c接受到的是数组的引用
        
        print "$a\n";
        my $count = 0;
        
        while($count < @$b)   #这里解引用
        {
                print "$b->[$count]\n";
                $count++;
        }
        $count = 0;
        while($count < @$c)   #这里解引用
        {
                print "$c->[$count]\n";
                $count++;
        }
}


my @arry1 = ("fff", "rrr", "www");
my @arry2 = ("ttt", "hhh", "ccc");


func("qqq", \@arry1, \@arry2); #  这里传入数组的引用

0 0
原创粉丝点击