我想定义一个散列的散列的数据结构，如下的表达方法怎么不对呢？

ccc77

#!/usr/bin/perl

my $hc = \%HH = (
60.215.128.217 => {
d123 => "data1",
d124 => "data2",
d125 => "data3",
},
58.63.236.99 => {
d123 => "data1",
d124 => "data4",
d125 => "data2",
d122 => "data3",
},
125.211.213.33 => {
d111 => "data6",
d112 => "data6",
d113 => "data6",
d114 => "data7",
d115 => "data4",
d120 => "data8",
d121 => "data9",
},
58.63.235.60 => {
d120 => "data6",
d121 => "data7",
},
60.28.164.208 => {
d122 => "data3",
},

);


print $hc->{58.63.236.99}->{d123}."\n";


我想定义一个散列的散列的数据结构，如上的表达方法怎么不对呢？
那我需要怎么定义呢？

infernor

my $hc = \%HH = (...)
这样不行吧？

Perl_Er

看一下骆驼，数据结构一章

wxlfh

$hashref = {1=>{},2=>{},3=>{}};

Perl_Er

回复 1# ccc77


    发个link给你参考一下：http://www.pgsqldb.org/mwiki/index.php/DataStructures

shaneqi

my $hc = {
60.215.128.217 => {
d123 => "data1",
d124 => "data2",
d125 => "data3",
},
58.63.236.99 => {
d123 => "data1",
d124 => "data4",
d125 => "data2",
d122 => "data3",
},
125.211.213.33 => {
d111 => "data6",
d112 => "data6",
d113 => "data6",
d114 => "data7",
d115 => "data4",
d120 => "data8",
d121 => "data9",
},
58.63.235.60 => {
d120 => "data6",
d121 => "data7",
},
60.28.164.208 => {
d122 => "data3",
},
};

ccc77

my $hc = {
60.215.128.217 => {
d123 => "data1",
d124 => "data2",
d125 => "data3",
},
58.63.236 ...
shaneqi 发表于 2010-02-22 15:18

这是定义的匿名散列的引用呀。

starwing83

注意你的$hc是个scalar，因此赋值的时候右值是个comma-operator sequence而不是你想要的list constructor：
$hc = {...};
%hc = (...);

你得时刻注意自己处在的上下文，到底是列表上下文还是标量上下文。

ps：以前一直觉得perl看上去挺不舒服的，刚刚看了一点儿go过来，发现perl真可爱……（更不用说C和Python了……）

Perl_Er

回复 7# ccc77

看书没有啊 http://www.pgsqldb.org/mwiki/ind ... 4.E6.95.A3.E5.88.97

1.    %HoH = (
   
2.       flintstones => {
   
3.          husband => "fred",
   
4.          pal    => "barney",
   
5.       },
   
6.       jetsons => {
   
7.          husband => "george",
   
8.          wife    => "jane",
   
9.          "his boy" => "elroy",      # 键字需要引号
   
10.       },
    
11.       simpsons => {
    
12.          husband => "homer",
    
13.          wife    => "marge",
    
14.          kid     => "bart",
    
15.       },
    
16. 
    
17.    );
    

复制代码

ccc77

回复 8# starwing83


   我觉得你们都说对了。
  我已经理解了，谢谢。