perl - 如何在我的 Perl 脚本中填充哈希（已在单独的文件中定义）并对其进行必要的操作？

Question

如何在我的 Perl 脚本中填充哈希（已在单独的文件中定义）并对其进行必要的操作？

例如：

file1.pl -- 包含定义的哈希，

file2.pl -- 用户定义的代码，应该从 file1.pl 填充散列

my %tgs = (
    'articles' =>  {
        'vim' => '20 awesome articles posted',
        'awk' => '9 awesome articles posted',
        'sed' => '10 awesome articles posted'
    },

    'ebooks' =>  {
        'linux 101'   => 'Practical Examples to Build a Strong Foundation in Linux',
        'nagios core' => 'Monitor Everything, Be Proactive, and Sleep Well'
    },
);

Answer 1

@Gibron 实际上已经回答了您的问题。
所以我只是给你看代码，你可能会更感兴趣。
填充普通散列的方式与填充“散列上的散列”的方式相同。
我使用 Data::Dumper 直接显示哈希结构，您可以选择自己的方式来了解最终哈希包含的内容。

use strict;
use Data::Dumper qw(Dumper);
do 'file1.def'; # evaluate file1

# add new sub key and value to 'hash of hash'
$file1::tgs{'articles'}{'emacs'} = '21 awesome articles posted';

# create a completely new pair
$file1::tgs{'new_key'}{'new_sub_key'} = 'new_value';

# see the result
print Dumper (\%file1::tgs);