perl函数中传递数组的方法

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

sub func { ? ? ? ? my($a,$b,$c) = @_; ? ?# 这里$b,$c接受到的是数组的引用 ? ? ? ?? ? ? ? ? print "$an"; ? ? ? ? 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); # ?这里传入数组的引用