Priraďte polia k podsúborom hash - polia, Perl, hash

Vzhľadom na množinu kľúčov a množinu hodnôt môžem vytvoriť hash s týmito klávesmi a hodnotami pomocou @hash{@keys} = @vals.

Chcel by som to však urobiť aj pre podkľúče hash. Toto nefunguje: $h{"key"}{@subkeys} = @vals.

$ perl -MData::Dumper -le "
@subkeys=(qw(one two));
@vals=(1, 2);
$hash{"key"}{@subkeys} = @vals;
for (qw(subkeys vals)) {
print "$_ :n", Dumper(@{$_})
};
print "hash: n", Dumper(%hash);"

To, čo mám, je:

subkeys :
$VAR1 = [
"one",
"two"
];

vals :
$VAR1 = [
1,
2
];

hash:
$VAR1 = {
"key" => {
"2" => 2
}
};

Ak je to možné, aký by bol správny syntax, aby ste získali nasledujúci výsledok:

$VAR1 = {
"key" => {
"one" => 1,
"two" => 2
}
};

Pracuje pri použití dočasného hash:

perl -MData::Dumper -le "@subkeys=(qw(one two)); @vals=(1, 2); @tmp{@subkeys}=@vals; $hash{"key"}={%tmp}; print Dumper(%hash)"

Ale mám podozrenie, že mi chýba správna syntax, aby som ju dostala bez %tmp hash.

odpovede:

Musíte zatvoriť časť hashref v a @{} plátok "cast".

@{$hash{"key"}}{@subkeys} = @vals;