摘要: 在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,\@arra... 阅读全文
posted @ 2012-12-21 10:20 ifeixiang 阅读(1638) 评论(0) 推荐(0) 编辑