中级进阶: 匿名散列表与引用 (tsingson原创)

原始连接：http://www.perlchina.org/cgi-bin/gforum/gforum.cgi?post=12350;#12350
作者： PerlChina 老大 tsingson ：）

引用，在 perl 里是很有用的，特别是高级、复杂的编程，与 OO 风格的编程中，经常用到。
如果你的 匿名散列与引用使用得比较概念清楚，正确使用的话，可以省很多事


下面是一个命名散名

my %personal_info = (
    id    => '452226197705300020',
    name  => 'tsingson',
    sex   => 'man',
    age   => '25',
    title => 'perl fans',
   );

要注意哟，上面的赋值是 () 用括号哟


用起来很简单，比较好的方法是用以下方法

 print " my name is $personal_info{'name'}  \n";

接着就是一个引用，对散列的引用
说明一下，引用，其实就像 c 语言里的指针，是一个标量，存放的是一个内存地址，这个地址存着引用对像。
比如说一个散列的引用，其实就是这个散列的开始地址，这个地址直接保存着引用的散列。

my $personal_info_ref = \%personal_info;

引用就是这么简单，在变量 ( 标量，数组，散列) 前加 \ 就行了。



为了使用这个引用指向的散列数据，可以这样使用
方法之一

my $tsingson_name = $$personal_info_ref{'name'};

你可以这样得到这是不是一个散列的引用

print ref $personal_info_ref;

当然，比较推荐的用法是第二个 ,就是小箭头用法

my $tsingson_name = $personal_info_ref->{'name'};

下面的代码，可以看这个引用是什么类型，当然结果是打印出 HASH
就是引用的是散列

print ref $personal_info_ref;

接着我们看一个匿名散列，其实匿名散列，就是没有命名的散列表。
我们用引用来作例子。

my $personal_ref = {
    id    => '452226197705300020',
    name  => 'tsingson',
    sex   => 'man',
    age   => '25',
    title => 'perl fans',
   };

注意哟，上面是 {} 花括号哟
这一段代码是等于上面代码的合成，在 {} 里就是匿名散名，可以看作以下代码的简化

my %personal = (
    id    => '452226197705300020',
    name  => 'tsingson',
    sex   => 'man',
    age   => '25',
    title => 'perl fans',
   );   ######## 这里是小括号

my $perlsonal_ref = \%personal;  #### 这里就是引用

对比一下上面的代码，你可以知道匿名散列与引用，可以简化代码，使用小箭头也可以清楚使用数据了。

#############################################################################################

看看一个实际代码吧，是一个函数调用

$usertable->add({
    id    => '452226197705300020',
    name  => 'tsingson',
    sex   => 'man',
    age   => '25',
    title => 'perl fans',
});

可能见过这样的代码吧，呵呵，这里传递给函数的，就是一个 匿名散列的引用。

上面的代码，也就是相当于下面的代码

my $personal_ref =
{
    id    => '452226197705300020',
    name  => 'tsingson',
    sex   => 'man',
    age   => '25',
    title => 'perl fans',
};

$usertable->add($personal_ref);

my %personal =
(
    id    => '452226197705300020',
    name  => 'tsingson',
    sex   => 'man',
    age   => '25',
    title => 'perl fans',
);

my $personal_ref = \%personal;

$usertable->add($personal_ref);

#######################################################
这里就有一个技巧在，就是使用引用来传递散列表给函数

我们看看这们函数内是如何使用的

package Personal;
use strict;

sub add {
    my $self = shift;
    my $personal_ref = shift;
     
    if (ref $personal_ref eq 'HASH')
    {
       my $name = $personal_ref->{'name'};
}

return;
}

kao, 为什么这样啊，看起来很烦嘛
这里，使用 散列引用，是为了代码更为清楚准确，因为散列表可以清楚知道变量是什么，对于将来维护与排错，增加功能或信息都很方便。

比如加一个国家属性，只要在 散列表里加

Code

my $personal_ref =
{
    id    => '452226197705300020',
    name  => 'tsingson',
    sex   => 'man',
    age   => '25',
    title => 'perl fans',
    state => 'china', ######  看，加在这里了
};

$usertable->add($personal_ref);  #### 这里还是没变

看看函数里修改的地方

package Personal;
use strict;

sub add {
    my $self = shift;
    my $personal_ref = shift;
     
    if (ref $personal_ref eq 'HASH')
    {
       my $name = $personal_ref->{'name'};
       if ( exists $personal_ref->{'state'} )  ##############  代码加在这里了
        {  
           print $personal_ref->{'state'};     ############## 处理
        }
}

return;
}

我想，通过上面的说明，应该了解散列引用与匿名散列了吧。