上文下理应该是 :
sub test {
my ($xy,$x,$y,$N,$len)=@_;
print $xy;
print $x;
print $y;
print $N;
print $len;
}
test ( 1,2,3,4,5 ); # 印出 "12345"
@_ 是一个 sub 用来接收参数的特定数组
my 就是将变数本地化, 即是$xy,$x,$y,$N,$len 在离开 sub test 的范围就不会有效
my ($xy,$x,$y,$N,$len)=@_; 就是将收到的参数分别赋值到($xy,$x,$y,$N,$len) 这堆变数之中
这个是子函数参数传递