perl中子程序中参数的两种引用(传递)方式:pass by value and pass by Reference(传入引用)

perl中子程序中参数的两种引用(传递)方式:pass by value and pass by Reference(传入引用),第1张

概述这里主要讨论的是当你要传递的参数不是仅仅一个的时候,也就是两个以上,并且他们数据的类型还不一致的时候,我们要遇到的问题: 下面是一个例子: use strict; #这里是两个数组my @i =('1','2','3');my @j =('a','b','c');#在进行处理之前,我们把他们先打印出来,看一看他们的样子print "In main program before

这里主要讨论的是当你要传递的参数不是仅仅一个的时候,也就是两个以上,并且他们数据的类型还不一致的时候,我们要遇到的问题:

下面是一个例子:

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);}

得到的结果如下:

F:\>perl\a.plIn main program before calling subroutine:i=1 2 3In main program before calling subroutine:j=a b cIn subroutine:i=1 2 3 a b cin subroutine:j=In main program after calling subroutine:i=1 2 3In main program after calling subroutine:j=a b cF:\>

在这个例子中,子程序中有两个参数@i和@j,当我们将这两个参数传递到子程序的时候,子程序将他们全部放入了内置数组@_中,然后在@_中@i和@j的不同没有了,也就是在@_中混为一谈了,无法区分。当我们想重新得到他们两个的时候,我们发现,@i=1 2 3 a b c,而@j为空。在很多时候这显然不是我们想要得到的结果,所以我们要用到pass by reference(在大骆驼书第六章中被翻译为”传入引用“)

我们仅仅把代码做一个变动,也就是在

程序如下:

use strict;#这里是两个数组my @i =('1','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);#在这里我们添加了反斜线,也就是pass byreference(传入引用,在大骆驼书中第六章翻译)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";    print "In subroutine:the third element is $$j[2]\n";#当引用数组中的一个元素的时候第一个$和后面的j[2]代表数组中的第三个元素,而第二个$代表的就是二次引用	#这里我们对@_的处理用pop,和shift来进行	push(@$i,'4');	shift(@$j);}



结果如下:

F:\>perl\a.plIn main program before calling subroutine:i=1 2 3In main program before calling subroutine:j=a b cIn subroutine:i=1 2 3in subroutine:j=a b cIn subroutine:the third element is cIn main program after calling subroutine:i=1 2 3 4In main program after calling subroutine:j=b cF:\>

我们可以观察最后的结果,

在调用了子程序以后@i的值发生了变化:i=1 2 3 4 而j=b c。也就是说我们在子程序中对数组进行的push和shift *** 作在主程序中起了作用。

为什么会出现这种情况呢?

一般来说,我们在子程序中对变量进行了my声明,也就是只会在子程序中起作用,而不会改变主程序中的值。

在这里由于引用的是真实的参数,也就是主程序中的值,而不是它的备份,所以会得到相应的改变。

总结

以上是内存溢出为你收集整理的perl中子程序中参数的两种引用(传递)方式:pass by value and pass by Reference(传入引用)全部内容,希望文章能够帮你解决perl中子程序中参数的两种引用(传递)方式:pass by value and pass by Reference(传入引用)所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/langs/1293552.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-06-10
下一篇 2022-06-10

发表评论

登录后才能评论

评论列表(0条)

保存