perl传递数组的问题
在perl里面，传递多个数组是不可行的，因为所有参数都会被压到@_里面，取出来的时候，所以数组元素都会被放到第一个数组里面。所以，用引用吧~~~
1 use ...
2 sub array
3 {
4 my ($arr1,$arr2) = @_ ;
5 print "@$arr1 : @$arr2";
6 }
7 sub main
8 {
9 my @array1 = qw/test test test/ ;
10 my @array2 = qw/test1 test1 test1/ ;
11 array(\@array1,\@array2);
12 }
13 main();
页:
[1]