快捷導(dǎo)航

perl中子程序中參數(shù)的兩種引用(傳遞)方式介紹

更新時(shí)間：2013年03月01日 11:08:58 作者：

這里主要討論的是當(dāng)你要傳遞的參數(shù)不是僅僅一個(gè)的時(shí)候，也就是兩個(gè)以上，并且他們數(shù)據(jù)的類型還不一致的時(shí)候，我們要遇到的問題

下面是一個(gè)例子：

use strict;
#這里是兩個(gè)數(shù)組
my @i =('1','2','3');
my @j =('a','b','c');

#在進(jìn)行處理之前，我們把他們先打印出來，看一看他們的樣子
print "In main program before calling subroutine:i="."@i\n";
print "In main program before calling subroutine:j="."@j\n";

#然后我們通過子程序進(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";

#這里我們對(duì)@_的處理用pop,和shift來進(jìn)行
push(@i,'4');
shift(@j);
}

得到的結(jié)果如下：

復(fù)制代碼代碼如下:

F:\>perl\a.pl
In main program before calling subroutine:i=1 2 3
In main program before calling subroutine:j=a b c
In subroutine:i=1 2 3 a b c
in subroutine:j=
In main program after calling subroutine:i=1 2 3
In main program after calling subroutine:j=a b c
F:\>

在這個(gè)例子中，子程序中有兩個(gè)參數(shù)@i和@j，當(dāng)我們將這兩個(gè)參數(shù)傳遞到子程序的時(shí)候，子程序?qū)⑺麄內(nèi)糠湃肓藘?nèi)置數(shù)組@_中，然后在@_中@i和@j的不同沒有了，也就是在@_中混為一談了，無法區(qū)分。當(dāng)我們想重新得到他們兩個(gè)的時(shí)候，我們發(fā)現(xiàn)，@i=1 2 3 a b c，而@j為空。在很多時(shí)候這顯然不是我們想要得到的結(jié)果，所以我們要用到pass by reference（在大駱駝書第六章中被翻譯為”傳入引用“）
我們僅僅把代碼做一個(gè)變動(dòng)，也就是在
程序如下：

復(fù)制代碼代碼如下:

use strict;

#這里是兩個(gè)數(shù)組
my @i =('1','2','3');
my @j =('a','b','c');

#在進(jìn)行處理之前，我們把他們先打印出來，看一看他們的樣子
print "In main program before calling subroutine:i="."@i\n";
print "In main program before calling subroutine:j="."@j\n";

#然后我們通過子程序進(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)=@_;#引用也是一種特殊的數(shù)據(jù)形式，它們?cè)贎_中都被當(dāng)成標(biāo)量變量來儲(chǔ)存
print "In subroutine:i="."@$i\n";所以這里引用它們的時(shí)候，我們?cè)谒麄兦懊嫣砑恿藘蓚€(gè)符號(hào)，@代表這是一個(gè)數(shù)組，$代表著是一個(gè)二次引用。
print "in subroutine:j="."@$j\n";
print "In subroutine:the third element is $$j[2]\n";#當(dāng)引用數(shù)組中的一個(gè)元素的時(shí)候第一個(gè)$和后面的j[2]代表數(shù)組中的第三個(gè)元素，而第二個(gè)$代表的就是二次引用
#這里我們對(duì)@_的處理用pop,和shift來進(jìn)行
push(@$i,'4');
shift(@$j);
}

結(jié)果如下：

復(fù)制代碼代碼如下:

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

我們可以觀察最后的結(jié)果，
在調(diào)用了子程序以后@i的值發(fā)生了變化：i=1 2 3 4 而j=b c。也就是說我們?cè)谧映绦蛑袑?duì)數(shù)組進(jìn)行的push和shift操作在主程序中起了作用。
為什么會(huì)出現(xiàn)這種情況呢？
一般來說，我們?cè)谧映绦蛑袑?duì)變量進(jìn)行了my聲明，也就是只會(huì)在子程序中起作用，而不會(huì)改變主程序中的值。
在這里由于引用的是真實(shí)的參數(shù)，也就是主程序中的值，而不是它的備份，所以會(huì)得到相應(yīng)的改變。

您可能感興趣的文章: