Perl 引用与匿名数组

写这篇是因为工作遇到一个需要使用列表作为hash的值的问题，这在Python中是非常简单而轻松的事，如下面这段python程序。

def add_to_index(index, keyword, url):
        if keyword in index:
        index[keyword].append(url)
    else:
        index[keyword] = [url]

但在Perl中怎么办呢？答案是使用引用，同样轻松搞定。

创建引用

1.使用操作符

#标量引用
my$scalar=42;
my$sref=$scalar ;

# 数组引用
my@array= (1,2,3) ;
my$aref=@array ;

#哈希引用
my%hash= ("name"=>"foo","age"=>42,"gender"=>"male") ;
my$href=%hash ;

#子程序引用
sub handler {return 1}
$coderef   = &handler;

#句柄引用
$globref   = *STDOUT;

其中，句柄引用有什么用？

2.匿名引用

 定义一个普通数组: my @a = (1,2,3);

 定义一个匿名数组引用: my $a = [1,2,3];

 定义一个以匿名数组引用为元素的数组（实际是二维数组）：

@a = (
    [1, 2, 3],
    [4, 5, 6],
    [7, 8, 9]
)

其中：$a[1][2]表示第二行第三列元素6.

定义一个以匿名数组引用为元素的数组引用（实际是二维数组的引用）：

my $aref = [1, [2, 3], [4, 5, 6]] ;
print $aref->[0] , "
" ; #1
print $aref->[1][1], "
" ; #3
print $aref->[2][0], "
" ; #4

注意：

• 前者是真正的数组，所以定义变量是使用@，后者是指向匿名数组的引用，所以定义的时候使用$
• 前者的数组元素是匿名数组，而外层数组则是实体数组，后者无论元素还是外层数组都是匿名数组
• 前者可以用$a[x][y]的形式访问，而后者只能用解引用的方式访问，即$a->[x][y]的形式。

 定义一个普通hash: my %h = (a=>1,b=>2,c=>3); #注意是小括号,不是大括号, 否则会报 Reference found where even-sized list expected at ...

 定义一个匿名hash引用: my $h = {a=>1, b=>2, c=>3} #注意是大括号

 注意: 匿名数组/hash的元素仍然可以是匿名数组/hash，所以我们可以用这种方法构造多维数组/hash: 

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

my $h= {
    'a' => {
        'x' => 1,
        'y' => 2,
        'z' => 3,
    },

    'b' => {
        'u' => '4',
        'v' => '5',
        'w' => '6',
    }
} ;

 

使用引用

使用引用并不难,只要把引用的值当做原型的名字使用即可.

比如aref是一个数组引用,对应a是数组, 我们可以把$aref整体当做数组的名字a,因此要获取数组的值即: ${$a}[0], ${$a}[1]

遵循这个原则就很容易了.

my $s = 1 ;
my @a = (1, 2, 3) ;
my %h = ('a' => 1, 'b' => 2) ;

my $sref = $s;  
my $aref = @a;
my $href = %h;

print $$sref, "
" ;
print @$aref, "
" ;
print %$href, "
" ;
print $$aref[2], "
" ;
print $$href{'a'}, "
" ;

注意：当{}内部是$var的形式时，{}是可以省略的，也就是说@{$aref}等价于@$aref，不过初学最好养成使用{}的习惯。

Reference

http://www.cnblogs.com/softwaretesting/archive/2011/07/26/2117730.html