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 "Geekdoc!\n" };

#!/usr/bin/perl

var = 10;
 
#r 引用 var 标量r = \var;

@var =(1, 2, 3);
 
# 输出本地存储的r 的变量值
print "var 为 : ",r, "\n";



#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

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' => 'geekdoc', 'age' => 3);
 
# 创建函数的引用
cref = \&PrintHash;
 
# 使用引用调用函数
&cref(%hash);

元素 : age
元素 : 3
元素 : name
元素 : geekdoc