|
引用，在 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',
|
| 共2页: 上一页 1 [2] 下一页 |
评论加载中…
