哪位朋友有三重哈希构建、遍历、查询的例子

sunzhiguolu

那我想问下, 如果想查询 '颜色' 这个关键词 包含哪些字, 该如何操作? 好像随着汉子的增多 查询起来 效率还真是个事! (如果 义项 是个通用词的话)

hztj2005

sunzhiguolu 发表于 2016-08-10 11:46
那我想问下, 如果想查询 '颜色' 这个关键词 包含哪些字, 该如何操作? 好像随着汉子的增多 查询起来 效率还真 ...

my $char = '颜色';
my $pinyin = 'yanse';
    #获取语义项
my $meaning_aref = $href->{$char}->{$pinyin};

print @$meaning_aref[1];

我对perl数组的实现原理没理解透，按上面代码就是直接my $char = '颜色' ,perl竟然能直接取出数据。
如果在C语言中，程序必须有搜索过程，通常就是排序后折半查找。
当然在C++的标准库中，印象也有perl类似的功能，用关键字key做下标{key}取数据value。

也许perl内部会对数组进行排序。但这样又有一个问题，就是打乱了数据的原有秩序。

sunzhiguolu

回复 12# hztj2005

我对perl 数组 的实现原理没理解透，按上面代码就是直接my $char = '颜色' ,perl竟然能直接取出数据。

老人家 这个是 hash 的 hash, 值 是一个 数组的引用.

还有就是, 我在前面的所说的 关键词 '颜色' 并非以键的形式进行查找. 而是作为 义项 内容进行查找.

   

hztj2005

sunzhiguolu 发表于 2016-08-10 13:09
回复 12# hztj2005

老人家 这个是 hash, 值 是一个 数组的引用.

my $ref_type = ref $href;

print "$ref_type\n";

我用这两行代码看了一下，$href还真是一个哈希。那正好能满足我的应该，通过汉字查义项。

push @{ $href->{'红'}->{'hong'} }, '颜色'; #1维哈希+2维数组。


那么我想知道，怎样的语法，才建立一个3维数组？


至于你要查义项内的“颜色”，除非另建索引，不然没有什么捷径。

sunzhiguolu

回复 14# hztj2005
上面的那个回帖, 我没有修改成功. 抱歉, 有些地方可能不太正确, 以这个为准, 如有问题也请大家指正 避免误导.
$href 是一个 hash 引用, 而它 本身引用的是一个 hash 的 hash, 其值为 数组的引用.
比如 汉字 '红' 是 $ref 的 key, 而 拼音 'hong' 则是 '红' 下的一个名为 'hong' 的匿名 hash 引用, 它的值才是 那个数组的引用.

另外, 您老人家 所说的 3维数组, 是个啥意思? 有啥特殊用途吗, 2维数组足以了吧.

   

pingmm

谁知道一个hash表多个key，有这样的开源实现吗？

hztj2005

sunzhiguolu 发表于 2016-08-10 14:29
回复 14# hztj2005
上面的那个回帖, 我没有修改成功. 抱歉, 有些地方可能不太正确, 以这个为准, 如有问题 ...

谢谢指点！测试了下确实如此。是否 -> 都是表示哈希引用？


push @{ $href->{'红'}->{'hong'} }, '颜色';
push @{ $href->{'红'}->{'hong'} }, '红色代表着吉祥、喜气、热烈、奔放、激情、斗志、革命。';
push @{ $href->{'红'}->{'hong'} }, '可见光谱中长波末端的颜色，波长大约为610到750纳米，类似新鲜血液的颜色，是三原色和心理原色之一。';

# 查询
my $char = '红';
my $pinyin = 'hong';
    #获取语义项
my $meaning_aref = $href->{$char}->{$pinyin};

print @{$meaning_aref}[1];
print "\n";
print @$meaning_aref[1];
print "\n";
print $$meaning_aref[1];
print "\n";
print ${$meaning_aref}[1];
print "\n";
print ("@{$meaning_aref}\n");

print "\n";

my $ref_type = ref $href;
print "$ref_type\n";

my $ref_type2 = ref $href->{$char};
print "$ref_type2\n";


my $ref_type3 = ref $href->{$char}->{$pinyin};
print "$ref_type3\n";

输出结果：
红色代表着吉祥、喜气、热烈、奔放、激情、斗志、革命。
红色代表着吉祥、喜气、热烈、奔放、激情、斗志、革命。
红色代表着吉祥、喜气、热烈、奔放、激情、斗志、革命。
红色代表着吉祥、喜气、热烈、奔放、激情、斗志、革命。
颜色 红色代表着吉祥、喜气、热烈、奔放、激情、斗志、革命。 可见光谱中长波末端的颜色，波长大约为610到750纳米，类似新鲜血液的颜色，是三原色和心理原色之一。

HASH
HASH
ARRAY

jason680

回复 17# hztj2005

-> 是使用引用

http://bbs.chinaunix.net/thread-504623-1-1.html   

stanley_tam

不用谢
另外print @$meaning_aref[1];可以直接写成 print $meaning_aref->[1];

hztj2005

jason680 发表于 2016-08-10 19:37
回复 17# hztj2005

-> 是使用引用

谢谢！好文，写得简明扼要。