在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中的哈希嵌套數組了。