这里主要讨论的是当你要传递的参数不是仅仅一个的时候，也就是两个以上，并且他们数据的类型还不一致的时候，我们要遇到的问题
下面是一个例子：
复制代码 代码如下:
use strict;
#这里是两个数组
my @i =('1','2','3');
my @j =('a','b','c');
#在进行处理之前，我们把他们先打印出来，看一看他们的样子
print "In main program before calling subroutine:i="."@i\n";
print "In main program before calling subroutine:j="."@j\n";
#然后我们通过子程序进行处理
reference_sub(@i,@j);
print "In main program after calling subroutine:i="."@i\n";
print "In main program after calling subroutine:j="."@j\n";
#下面是子程序
sub reference_sub
{
my (@i,@j)=@_;
print "In subroutine:i="."@i\n";
print "in subroutine:j="."@j\n";
#这里我们对@_的处理用pop,和shift来进行
push(@i,'4');
shift(@j);
}
以上就是perl中子程序中参数的两种引用(传递)方式介绍的详细内容，更多请关注0133技术站其它相关文章！
