Perl 引用

引用就是指針，Perl 引用是一個標量類型可以指向變數、數組、哈希表（也叫關聯數組）甚至子程序，可以應用在程序的任何地方。

創建引用

定義變數的時候，在變數名前面加個，就得到了這個變數的一個引用，比如:

$scalarref = $foo; # 標量變數引用$arrayref = @ARGV; # 列表的引用$hashref = \%ENV; # 哈希的引用$coderef = &handler; # 子過程引用$globref = *foo; # GLOB句柄引用

在數組中我們可以用匿名數組引用，使用 [] 定義：

$aref= [ 1,"foo",undef,13 ];

匿名數組的元素仍然可以是匿名數組，所以我們可以用這種方法構造數組的數組，可以構造任意維度的數組。

my $aref = [
[1, 2, 3],
[4, 5, 6],
[7, 8, 9],]

在哈希中我們可以用匿名哈希引用，使用 {} 定義：

$href= { APR =>4, AUG =>8 };

我們也可以創建一個沒有子程序名的匿名子程序引用:

$coderef = sub { print "Runoob!
" };

取消引用

取消引用可以根據不同的類型使用 $, @ 或 % 來取消，實例如下：

實例

#!/usr/bin/perl$var = 10;
# $r 引用 $var 標量$r = $var;
# 輸出本地存儲的 $r 的變數值print"$var 為 : ", $$r, "
";
@var = (1, 2, 3);# $r 引用 @var 數組$r = @var;# 輸出本地存儲的 $r 的變數值print"@var 為: ", @$r, "
";
%var = ("key1" => 10, "key2" => 20);# $r 引用 %var 數組$r = \%var;# 輸出本地存儲的 $r 的變數值print"%var 為 : ", %$r, "
";

執行以上實例執行結果為：

10 為 : 101 2 3 為: 123%var 為 : key110key220

如果你不能確定變數類型，你可以使用 ref 來判斷，返回值列表如下，如果沒有以下的值返回 false：

SCALAR
ARRAY
HASH
CODE
GLOB
REF

實例如下：

實例

#!/usr/bin/perl$var = 10;$r = $var;print"r 的引用類型 : ", ref($r), "
";
@var = (1, 2, 3);$r = @var;print"r 的引用類型 : ", ref($r), "
";
%var = ("key1" => 10, "key2" => 20);$r = \%var;print"r 的引用類型 : ", ref($r), "
";

執行以上實例執行結果為：

r 的引用類型 : SCALAR
r 的引用類型 : ARRAY
r 的引用類型 : HASH

循環引用

循環引用在兩個引用相互包含時出現。你需要小心使用，不然會導致內存泄露，如下實例：

實例

#!/usr/bin/perlmy$foo = 100;$foo = $foo;
print"Value of foo is : ", $$foo, "
";

執行以上實例執行結果為：

Value of foo is : REF(0x9aae38)

引用函數

函數引用格式: &

調用引用函數格式: & + 創建的引用名。

實例如下：

實例

#!/usr/bin/perl# 函數定義subPrintHash{my(%hash) = @_;
foreach$item(%hash){print"元素 : $item
"; }}%hash = ("name" => "runoob", "age" => 3);
# 創建函數的引用$cref = &PrintHash;
# 使用引用調用函數&$cref(%hash);

執行以上實例執行結果為：

元素 : age元素 : 3元素 : name元素 : runoob

喜歡這篇文章嗎？立刻分享出去讓更多人知道吧！