perl - 对作为哈希键

Question

有谁知道如何在 perl 中使用作为键的字符串对进行散列？

就像是...

{
    ($key1, $key2) => $value1;
    ($key1, $key3) => $value2;
    ($key2, $key3) => $value3;

等等....

Answer 1

你不能有一对标量作为散列键，但你可以创建一个多级散列:

my %hash;
$hash{$key1}{$key2} = $value1;
$hash{$key1}{$key3} = $value2;
$hash{$key2}{$key3} = $value3;

如果你想一次定义它:

my %hash = ( $key1 => { $key2 => $value1, $key3 => $value2 },
             $key2 => { $key3 => $value3 } );

或者，如果它适用于您的情况，您可以将您的 key 连接在一起

$hash{$key1 . $key2} = $value1;   # etc

或者添加一个分隔符来分隔键:

$hash{"$key1:$key2"} = $value1;   # etc