- 论坛徽章:
- 6
|
本帖最后由 stanley_tam 于 2016-08-09 22:11 编辑
什么鬼,貌似不是3重,2重就够了- #!perl
- #数据结构
- my $href = {
- 'chinese_char1' => {
- 'pinyin1' => ['meaning1', 'meaning2'],
- 'pinyin2' => ['meaning1', 'meaning2'],
- },
- 'chinese_char2' => {
- 'pinyin1' => ['meaning1', 'meaning2'],
- 'pinyin2' => ['meaning1', 'meaning2'],
- },
- }
- #构建
- my $href;
- push @{ $href->{'chinese_char'}->{'pinyin1'} }, 'meaning1',
- #遍历
- for my $char (keys %{ $href }){
- for my $pinyin ( keys %{ $href->{$char} } ){
- my @meanings = @{ $href->{$char}->{$pinyin} };
- }
- }
- # 查询
- my $char = 'chinese_char2';
- my $pinyin = 'pinyin1';
- #获取语义项
- my $meaning_aref = $href->{$char}->{$pinyin};
- __END__
复制代码 |
评分
-
查看全部评分
|