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};

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