Perl 引用
Perl 引用
引用就是指標,Perl 引用是一個標量型別可以指向變數、陣列、雜湊表(也叫關聯陣列)甚至子程式,可以應用在程式的任何地方。
建立引用
定義變數的時候,在變數名前面加個\,就得到了這個變數的一個引用,比如:
$scalarref = \$foo; # 標量變數引用 $arrayref = \@ARGV; # 列表的引用 $hashref = https://www.big2gb.com/%ENV; # 雜湊的引用 $coderef = /&handler; # 子過程引用 $globref = /*foo; # GLOB控制代碼引用
在陣列中我們可以用匿名陣列引用,使用 [] 定義:
$aref= [ 1,"foo",undef,13 ];
匿名陣列的元素仍然可以是匿名陣列,所以我們可以用這種方法構造陣列的陣列,可以構造任意維度的陣列。
my $aref = [ [1, 2, 3], [4, 5, 6], [7, 8, 9], ]
在雜湊中我們可以用匿名雜湊引用,使用 {} 定義:
$href= https://www.big2gb.com/cn2tw0.php?url=https://www.itread01.com/perl/{ APR =>4, AUG =>8 };
我們也可以建立一個沒有子程式名的匿名子程式引用:
$coderef = sub { print "itread01!\n" };
取消引用
取消引用可以根據不同的型別使用 $, @ 或 % 來取消,例項如下:
例項
#!/usr/bin/perl
$var = 10;
# $r 引用 $var 標量
$r = \$var;
# 輸出本地儲存的 $r 的變數值
print "$var 為 : ", $$r, "\n";
@var = (1, 2, 3);
# $r 引用 @var 陣列
$r = \@var;
# 輸出本地儲存的 $r 的變數值
print "@var 為: ", @$r, "\n";
%var = ('key1' => 10, 'key2' => 20);
# $r 引用 %var 陣列
$r = \%var;
# 輸出本地儲存的 $r 的變數值
print "\%var 為 : ", %$r, "\n";
執行以上例項執行結果為:
10 為 : 10 1 2 3 為: 123 \%var 為 : key110key220
如果你不能確定變數型別,你可以使用 ref 來判斷,返回值列表如下,如果沒有以下的值返回 false:
SCALAR ARRAY HASH CODE GLOB REF
例項如下:
例項
#!/usr/bin/perl
$var = 10;
$r = \$var;
print "r 的引用型別 : ", ref($r), "\n";
@var = (1, 2, 3);
$r = \@var;
print "r 的引用型別 : ", ref($r), "\n";
%var = ('key1' => 10, 'key2' => 20);
$r = \%var;
print "r 的引用型別 : ", ref($r), "\n";
執行以上例項執行結果為:
r 的引用型別 : SCALAR r 的引用型別 : ARRAY r 的引用型別 : HASH
迴圈引用
迴圈引用在兩個引用相互包含時出現。你需要小心使用,不然會導致記憶體洩露,如下例項:
例項
#!/usr/bin/perl
my $foo = 100;
$foo = \$foo;
print "Value of foo is : ", $$foo, "\n";
執行以上例項執行結果為:
Value of foo is : REF(0x9aae38)
引用函式
函式引用格式: \&
呼叫引用函式格式: & + 建立的引用名。
例項如下:
例項
#!/usr/bin/perl
# 函式定義
sub PrintHash{
my (%hash) = @_;
foreach $item (%hash){
print "元素 : $item\n";
}
}
%hash = ('name' => 'itread01', 'age' => 3);
# 建立函式的引用
$cref = \&PrintHash;
# 使用引用呼叫函式
&$cref(%hash);
執行以上例項執行結果為:
元素 : age 元素 : 3 元素 : name 元素 : itread01