Perl：将哈希作为子哈希添加到简单哈希

我看了另外两个问题，似乎是关于这个问题的，但它们有点迟钝，我无法将它们与我想做的事情联系起来，我认为这更简单。我也认为这将是一个非常常见的问题/任务的更清晰的陈述，所以我发布这篇文章是为了像我这样的人的利益

问题是： 我有3个文件，每个文件都是

key=value

对的列表：

设置1.ini

key1=val1
key2=val2
key3=val3

key1=val4
key2=val5
key3=val6

key1=val7
key2=val8
key3=val9

设置2.ini

key1=val1
key2=val2
key3=val3

key1=val4
key2=val5
key3=val6

key1=val7
key2=val8
key3=val9

设置3.ini

key1=val1
key2=val2
key3=val3

key1=val4
key2=val5
key3=val6

key1=val7
key2=val8
key3=val9

毫不奇怪，我想把那些

key=value

对读入一个散列来对它们进行操作，所以

我有一个文件名哈希：

my%files={file1=>'settings1.ini'
，file2=>“settings2.ini”
，file3=>“settings3.ini”
};

我可以像这样迭代文件名：

foreach my$fkey（键%files）{
说$files{$fkey}；
}

嗯

现在，我想将每个文件中的

key=value

对列表添加到散列中，作为每个“顶级”文件名键下的子散列，这样我就可以像这样迭代它们：

foreach my$fkey（键%files）{
说“文件：$files{$fkey}”；
foreach my$vkey（键$files{$fkey}）{
说“$vkey:$files{$fkey}{$vkey}”；
}
}

换句话说，我想在散列中添加第二级，使其不再是（用psuedo术语）单层值列表：

file1=>settings1.ini
file2=>settings2.ini
file3=>settings3.ini

要成为多层次的值列表，请执行以下操作：

file1=>key1=>val1'
file1=>key2=>val2
file1=>key3=>val3
file2=>key1=>val4
file2=>key2=>val5
file2=>key3=>val6
file3=>key1=>val7
file3=>key2=>val8
file3=>key3=>val9

其中：

my$fkey='file2'；
my$vkey='key3'；
说$files{$fkey}{$vkey}；

将打印值

'val6'

作为旁注，我试图使用

File:：Slurp

读取

key=value

对。在单级哈希上执行此操作很好：

my%new\u hash=read\u file（$files{$fkey}）=~m/^（\w+=（[^\r\n\*，]*）$/img；

但是，为了重新表述整个问题，我真正想做的是将

key=value

对的新散列作为“子/分支”子散列“嫁接”到“top

$file

键”下的现有文件名散列中

问题：

• 如何做到这一点，如何一次构建一个多层散列，就像这样？
• 我可以在不预先将哈希定义为多层的情况下执行此操作吗？

I

严格使用所以我看到了

在script.pl行中使用“strict refs”时，不能将字符串（“string”）用作哈希引用。

我不完全明白

编辑：
谢谢你，谢谢你的回答。在对你的建议进行心理分析时，我突然意识到，我在最初的问题中有点前后矛盾，这有点误导了你。我道歉。我想我现在也明白为什么我会看到“严格裁判”错误了。我做了一些改变

请注意，我第一次提到文件名的初始哈希值是正确的。但是，后续的foreach示例循环使用
%文件
，这是不正确的，因为我从使用
file1
作为第一个文件键改为使用
settings1.ini
作为第一个文件键。我认为这就是Perl抛出
strict refs
错误的原因，因为我试图将密钥从初始字符串更改为指向子哈希的哈希ref（反之亦然）

我理解正确了吗？
要一次构建一层散列，请使用匿名散列。
%files
的每个值都是对散列的引用，例如，
$files{'settings1.ini'}
：

# read the data into %new_hash, then:
$files{'settings1.ini'} = { %new_hash }

您不需要预先将散列定义为多层（作为散列的散列）

此外，避免重新发明轮子。使用Perl模块进行常见任务，在这种情况下考虑一些类似于解析<代码> *ini ini >代码>文件< /p>
另请参见：

匿名哈希：

哈希：有几个CPAN模块专门用于ini文件。你应该研究什么是可用的，选择你内心渴望的

否则，您可以按照以下代码片段的精神编写自己的代码

use strict;
use warnings;
use feature 'say';

use Data::Dumper;

my @files = qw(settings1.ini settings2.ini settings3.ini);

my %hash;

for my $file (@files) {
    $hash{$file} = read_settings($file);
}

say Dumper(\%hash);

sub read_settings {
    my $fname = shift;
    my %hash;
    
    open my $fh, '<', $fname
        or die "Couldn't open $fname";
    
    while( <$fh> ) {
        chomp;
        my($k,$v) = split '=';
        $hash{$k} = $v
    }
    
    close $fh;
    
    return \%hash;
}

Perl让这样的事情变得非常简单

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';
use Data::Dumper;

my %files;

# <> reads from the files given on the command line
# one line at a time.
while (<>) {
  chomp;
  my ($key, $val) = split /=/;

  # $ARGV contains the name of the file that
  # is currently being read.
  $files{$ARGV}{$key} = $val;
}

say Dumper \%files;

提供以下输出：

$VAR1 = {
          'settings3.ini' => {
                               'key2' => 'val8',
                               'key1' => 'val7',
                               'key3' => 'val9'
                             },
          'settings2.ini' => {
                               'key3' => 'val6',
                               'key1' => 'val4',
                               'key2' => 'val5'
                             },
          'settings1.ini' => {
                               'key3' => 'val3',
                               'key1' => 'val1',
                               'key2' => 'val2'
                             }
        };

谢谢你，帖木儿。我选择.ini文件作为示例，只是因为它们是最常见的情况之一，但它可以是具有key=value对的任何文件。我不想重新发明轮子，所以感谢您提供该模块的链接。您可以获得@Timur的投票权，因为它添加了一对大括号，使其成为匿名哈希，并且可以工作：）