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

下面是一個例子：

複製代碼 代碼如下: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.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:\>

在這個例子中，子程式中有兩個參數@i和@j，當我們將這兩個參數傳遞到子程式的時候，子程式將他們全部放入了內建數組@_中，然後在@_中@i和@j的不同沒有了，也就是在@_中混為一談了，無法區分。當我們想重新得到他們兩個的時候，我們發現，@i=1 2 3 a b c，而@j為空白。在很多時候這顯然不是我們想要得到的結果，所以我們要用到pass by reference（在大駱駝書第六章中被翻譯為”傳入引用“）
我們僅僅把代碼做一個變動，也就是在
程式如下：複製代碼 代碼如下: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);#在這裡我們添加了反斜線，也就是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.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:\>

我們可以觀察最後的結果，
在調用了子程式以後@i的值發生了變化：i=1 2 3 4 而j=b c。也就是說我們在子程式中對數組進行的push和shift操作在主程式中起了作用。
為什麼會出現這種情況呢？
一般來說，我們在子程式中對變數進行了my聲明，也就是只會在子程式中起作用，而不會改變主程式中的值。
在這裡由於引用的是真實的參數，也就是主程式中的值，而不是它的備份，所以會得到相應的改變。