Question

请问怎么给perl里的标量，哈希，数组赋初值？

Answer 1

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

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