perl 中的哈希赋值

在perl 中，经过代码动态的给哈希赋值，是最多见的应用场景，可是有些状况下，咱们事先知道一些信息，当须要把这些信息存放进一个哈希的时候，直接给哈希赋值就好；

哈希的key不用说，就是一个字符串，关键是value, 大概有下面3种：

1）一个值

就是一个普通的一维哈希，直接赋值便可

代码示例：

my %hash = (
'a' => 1,
'b' => 2,
);
print qq{$hash{a}\n};

2）一个列表

这种状况下直接把值写成一个列表是不行的，在perl中，哈希的值也是一个标量，因此应该用一个列表的引用

代码示例：

my %hash = (
'a' => [1, 2, 3],
'b' => [1, 2, 3],
);

print qq{$hash{a}->[0]\n};

3）一个哈希

和列表相似，直接用哈希的引用就能够了

代码示例：

my %hash = (
'a' => { '1' => 1, '2' => 2},
'b' => {' 1' => 1, '2' => 2},
);

print qq{$hash{a}->{1}\n};

上面这种状况，其实就是申明了一个二维哈希