客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
在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(); |
请发表评论