LinuxSir.cn,穿越时空的Linuxsir!

 找回密码
 注册
搜索
热搜: shell linux mysql
查看: 2376|回复: 3

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

[复制链接]
发表于 2004-6-4 02:34:30 | 显示全部楼层 |阅读模式
中级进阶: 匿名散列表与引用 (原创)         编辑 | 删除 | 引用 | 回复  |  短信回复
引用,在 perl 里是很有用的,特别是高级、复杂的编程,与 OO 风格的编程中,经常用到。
如果你的 匿名散列与引用使用得比较概念清楚,正确使用的话,可以省很多事


下面是一个命名散名
        Code       


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

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


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

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


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


        Code       

my $personal_info_ref = \%personal_info;

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



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

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


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

        Code       

print ref $personal_info_ref;


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

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


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

print ref $personal_info_ref;



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


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


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

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

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


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

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

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

        Code       

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

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

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

        Code       

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

$usertable->add($personal_ref);


        Code       

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

my $personal_ref = \%personal;

$usertable->add($personal_ref);


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

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

        Code       

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       

        Code       

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

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


看看函数里修改的地方

        Code       

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;
}



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

原文这里 http://www.perlchina.org/cgi-bin ... gi?post=12350#12350
发表于 2004-6-4 22:59:18 | 显示全部楼层
这两天没有斑竹来吗?
建议加精
发表于 2004-6-5 01:01:43 | 显示全部楼层

re

不错!!散列给我的感觉有点像Cookie,都是key/value
 楼主| 发表于 2004-6-5 02:15:23 | 显示全部楼层
不如说是自由命名下标的数组,至少 php 是这样说的。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表