在 Perl 中使用多维哈希？

Question

关于在 Perl 中推送到多维散列的快速问题。我有以下变量：

%pids #name of hash 
$pid = 24633 #key of the has 
$time 00:0 #time reference 
$line #has a line full of data

我正在从 $line 输入 $pid 和 $time。如果键 24633 与参考元素 05:3 一起存在，则将行添加到 05:3 并使用 05:3 作为键。

pids{24633}{05:3}

我试过了：

if ($pids{$pid}{$time}){
     @{$pids{$pid}{$time}} -> $line;
}

我也试过这个：

if ($pids{$pid}{$time}){
    push @{$pids{$pid}{$time}}, $line;

但是当它尝试推送时，它一直给我一个“不是 HASH 参考”。有什么建议？谢谢！

这就是我构建哈希的方式：

foreach my $key (keys %pids){
    if ($key =~ $mPID){
    push @messages, $line;
    }
}  

这是哈希结构：

$VAR1 = {   
      '17934' => [
                   '14:3'
                 ],
      '17955' => [
                   '13:3'
                 ],
      '24633' => [
                   '05:3'
                 ],
      '6771' => [
                  '04:1'
                ],
      '7601' => [
                  '06:0'
                ],
};

Answer 1

当您尝试将 %pids 结构作为散列的散列访问时，它被初始化为数组的散列

use strict;
use warnings;

my %pids = (   
    '17934' => [ '14:3' ],
    '17955' => [ '13:3' ],
    '24633' => [ '05:3' ],
    '6771'  => [ '04:1' ],
    '7601'  => [ '06:0' ],
);

print $pids{7601}[0], "\n";  #  Prints 06:0

print $pids{7601}{"06:0"}; # Error

如果您真的希望 %pids 是数组的哈希值，则必须首先弄清楚为什么它是数组的哈希值。

• perldsc - Perl Data Structures Cookbook