Perl ハッシュ内に配列をネストする方法と使い方

Perlでは、ハッシュ配列の入れ子は、配列をハッシュの値として定義することで生成できます。以下は定義と使用例です。

ハッシュネスト配列を定義します：

my %hash = (
key1 => [1, 2, 3],
key2 => [4, 5, 6],
);
# 或者可以使用匿名数组
my %hash = (
key1 => [qw(1 2 3)],
key2 => [qw(4 5 6)],
);

ハッシュの入れ子配列にアクセスして変更する：

# 访问一个元素
my $element = $hash{key1}[0];  # 获取 key1 的第一个元素
# 修改一个元素
$hash{key2}[1] = 7;  # 将 key2 的第二个元素修改为 7
# 添加一个元素
push @{$hash{key1}}, 4;  # 在 key1 的末尾添加一个元素 4
# 删除一个元素
pop @{$hash{key2}};  # 从 key2 的末尾删除一个元素

ハッシュネスト配列の繰り返し：

foreach my $key (keys %hash) {
foreach my $element (@{$hash{$key}}) {
print "$element ";
}
print "\n";
}

このようにして、Perl において階層的ハッシュ配列を定義および利用することができるようになります。