Perl学习笔记（7）-引用

发表于 | 分类于
| 字数统计: 724 | 阅读时长 ≈ 3

Perl 引用

引用就是指针，Perl的引用是一个标量类型，它可以指向变量、数组、哈希表（也叫关联数组）和函数，可以应用在程序的任何地方。

创建引用

定义变量的时候，在变量名前面加个\，就得到了这个变量的一个引用，如下所示：

1
2
3
4
5
$scalarref = \$foo;     # 标量变量引用
$arrayref  = \@ARGV;    # 列表的引用
$hashref   = \%ENV;     # 哈希的引用
$coderef   = \&handler; # 函数引用
$globref   = \*foo;     # GLOB句柄引用

在数组中我们可以用匿名数组引用，使用 [] 定义，在Perl中，匿名数组使用方括号（[]）来表示，而正常的数组，则是使用小括号来表示，例如@ages=(25,30,40)。当使用匿名数组引用时，使用方括号（[]），如下所示：

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

匿名数组的元素仍然可以是匿名数组，所以可以用这种方法构造数组的数组，可以构造任意维度的数组，如下所示：

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

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

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

也可以创建一个没有子程序名的匿名子程序引用:

1
$coderef = sub { print "Runoob!\n" };

取消引用

取消引用可以根据不同的类型使用$，@或%来消除，如下所示：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
biotest@ubuntu:~/perl/05function$ cat quote.pl 
#!/usr/bin/perl
$var = 10;
$r = \$var; # $r 引用 $var 标量
print "$var is ", $$r, "\n";  # 输出本地存储的 $r 的变量值
@var = (1, 2, 3);# $r 引用  @var 数组
$r = \@var;
print "@var is ", @$r, "\n";# 输出本地存储的 $r 的变量值
%var = ('key1' => 10, 'key2' => 20);  # $r 引用  %var 数组
$r = \%var;
print "%var is :",%$r, "\n";# 输出本地存储的 $r 的变量值
biotest@ubuntu:~/perl/05function$ perl quote.pl 
10 is 10
1 2 3 is 123
%var is :key110key220

判断引用类型

如果你不能确定变量类型，你可以使用 ref 来判断，返回值列表如下，如果没有以下的值返回 false：

1
2
3
4
5
6
SCALAR
ARRAY
HASH
CODE
GLOB
REF

案例如下所示：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
biotest@ubuntu:~/perl/05function$ cat determined.pl 
#!/usr/bin/perl
$var = 10;
$r = \$var;
print "Reference type of r is ", ref($r), "\n";
@var = (1, 2, 3);
$r = \@var;
print "Reference type of r is ", ref($r), "\n";
%var = ('key' => 10, 'key2' => 20);
$r = \%var;
print "Reference type of r is ",ref($r), "\n";
biotest@ubuntu:~/perl/05function$ perl determined.pl 
Reference type of r is SCALAR
Reference type of r is ARRAY
Reference type of r is HASH

循环引用

循环引用在两个引用相互包含时出现。你需要小心使用，不然会导致内存泄露，如下实例：

1
2
3
4
5
6
7
8
9
10
biotest@ubuntu:~/perl/05function$ cat quote_loop.pl 
#!/usr/bin/perl
my $foo = 100;
$foo = \$foo;
print "Value of foo is ", $foo, "\n";
biotest@ubuntu:~/perl/05function$ perl quote_loop.pl 
Value of foo is REF(0x1fb50f8)

引用函数

函数引用格式: \&，调用引用函数格式: & + 创建的引用名，如下所示：

1
2
3
4
5
6
7
8
9
10
11
12
13
sub PrintHash{
    my(%hash) = @_;
	
	foreach $item (%hash){
	    print "Element: $item\n";
	}
}
%hash = ('name' => 'Baidu', 'age' => 11);
$cref = \&PrintHash;
&$cref(%hash);

参考资料

Perl教程|菜鸟教程