1.使用哈希引用
my $hash = {}; #定义一个空的匿名哈希作为哈希引用的初始化
2.哈希赋值
a.给字符串赋值
$hash->{a} = 'x';
b.给数组赋值
@array = (1, 2, 3);
foreach (@array)
{
push @{$hash->{b}} = $_;
}
c.给哈希赋值
$hash->{c}{d} = 'y';
3.输出哈希
1.如果我们想输出$hash->{a}的值,可以用
my ($key, $value) = each %{$hash};
print "key = $key. /n";
print "value = $value. /n";
2.如果我们需要输出$hash->{b}的值,
调用 my ($key, $value) = each %{$hash};后
这时的$value是一个数组,我们需要循环输出数组的值
这里有三种方法
a.
for $key ( keys %{$hash})
{
print "$key => @{$hash->{$key}}";</