Perl 嵌套散列的散列

Question

我在弄清楚如何根据文本输入在 perl 中创建嵌套哈希时遇到了一些麻烦。

我需要这样的东西

my % hash = {
key1 => \%inner-hash,
key2 => \%inner-hash2
}

但是我的问题是我不知道先验有多少内部哈希。为此，我编写了以下一段 sn-p 来测试是否可以在循环中创建 str 变量并将其引用存储在数组中并稍后取消引用。

{
    if($line =~ m/^Limit\s+$mc_lim\s+$date_time_lim\s+$float_val\s+$mc\s+$middle_junk\s+$limit  \s+$value/) {
        my $str = $1 . ' ' . $2 . ' ' . $7;
        push (@test_array_reference, \$str);
     }
}
foreach (@test_array_reference) {  
    say $$_;
}

Perl 死于非标量运行时错误。我在这里有点迷路了。任何帮助将不胜感激。

Answer 1

要回答您的第一个（主要？）问题，您不需要知道要创建多少哈希，如果您浏览文本并在进行时创建它们。此示例使用由空格分隔的字符串中的单词作为键，但您可以使用任何输入文本来满足您的目的。

my $text = 'these are just a bunch of words';
my %hash;

my $hashRef = \%hash;           # create reference to initial hash
foreach (split('\s', $text)){
    $hashRef->{$_} = {};        # create anonymous hash for current word
    $hashRef = $hashRef->{$_};  # walk through hash of hashes
}

您还可以引用任意内部哈希并设置值，

$hash{these}{are}{just}{a}{bunch}{of}{words} = 88;
$hash{these}{are}{just}{a}{bunch}{of}{things} = 42;
$hash{these}{things} = 33;

为了可视化这一点，Data:Dumper 可能会有所帮助，

print Dumper %hash;

生成，

$VAR1 = 'these';
$VAR2 = {
          'things' => 33,
          'are' => {
                     'just' => {
                                 'a' => {
                                          'bunch' => {
                                                       'of' => {
                                                                 'things' => 42,
                                                                 'words' => 88
                                                               }
                                                     }
                                        }
                               }
                   }
        };

Answer 2

my $hashref = { hash1 => { key => val,... },
                hash2 =>  { key => val,..}  };

您可能还想在您的正则表达式中使用m//x 修饰符，因为它几乎不可读。

Answer 3

创建散列哈希非常简单：

my %outer_hash = {};

并非完全必要，但这基本上意味着散列的每个元素都是对另一个散列的引用。

想象一个由员工编号键入的员工哈希：

$employee{$emp_num}{first} = "Bob";
$employee{$emp_num}{last}  = "Smith";
$employee{$emp_num}{phones}{cell} = "212-555-1234";
$employee{$emp_num}{phones}{desk} = "3433";

这种表示法的问题是一段时间后它变得相当难以阅读。输入箭头符号：

$employee{$emp_num}->{first} = "Bob";
$employee{$emp_num}->{last}  = "Smith";
$employee{$emp_num}->{phones}->{cell} = "212-555-1234";
$employee{$emp_num}->{phones}->{desk} = "3433";

像这样的复杂结构的大问题是你失去了use strict 查找错误的能力：

$employee{$emp_num}->{Phones}->{cell} = "212-555-1234";

哎呀！我使用Phones 而不是phones。当您开始使用这种类型的复杂结构时，您应该使用面向对象的语法。幸运的是，perlobj 教程很容易理解。

顺便说一句，复杂的数据结构处理和使用面向对象的 Perl 的能力使您进入了大联盟。这是编写更强大、更复杂的 Perl 的第一步。