Perl引用

引用就是C语言中的指针，perl引用是一个标量类型可以指向变量、数组、哈希表（也叫关联数组）甚至子程序，可以应用在程序的任何地方。

在变量前面加一个\就得到了这个变量的一个引用

#！usr/bin/perl

$a=100; 

$a_=\$a;  #标量的yinyong
@arr=(1,2,3);

$arr_=\$arr; #数组的yinyong

%h=(key1=>'呵呵',key2=>'黑黑');  #哈希的引用

$h_=\%h;


#打印标量
print "a=$$a_\n";  #输出100

print "arr:\n";

#打印数组
foreach $item (@arr)
{
    print "$item\t";
}

#打印哈希
print "h:\n";
print "$$h_{'key1'}\n";  #打印"呵呵"
print "$$h_{'key2'}\n";  #"打印黑黑"


sub Func{print "123\n";}

#创建函数的引用
$func=\&Func;
#通过引用调用函数,打印123
&$func;