如何存储哈希路径以在 perl 中重用它们？

Question

假设我有大量元素嵌套在哈希中（来自 JSON）。我想为他们设置吸气剂和二传手。例如：

sub set_element_x{

    my ($self, $hash_ref, $value) = @_;

    $hash_ref->{'path1'}->{'path2'}->{'x'} = $value;

    return;
}

sub get_element_x{

    my ($self, $hash_ref, $value) = @_;

    return $hash_ref->{'path1'}->{'path2'}->{'x'};
}

是否有处理此路径的标准方法，以便您只需更改一次，以防 JSON 结构发生变化？

我想补充更多信息，因为我认为我没有正确解释自己。

我希望能够将这段代码存储在一个公共位置以访问 JSON 中的值：

->{'path1'}->{'path2'}->{'x'}

未来可能会变成：

->{'path1_1'}->{'path2_1'}->{'path3_1'}->{'x_1'}

PD：如果我使用@stevieb 的答案提供的代码段，我将无法保存我想要的结构。添加这两行：

print Dumper($href) . "\n";
print to_json($href) . "\n";

收益：

$VAR1 = {
          'PATH1' => {
                       'PATH2' => {
                                    'a' => 'aaa',
                                    'b' => 'bbb',
                                    'y' => 'yyy',
                                    'z' => 'zzz'
                                  }
                     }
        };
{"PATH1":{"PATH2":{"a":"aaa","b":"bbb","y":"yyy","z":"zzz"}}}

总结一下。我希望能够存储具有多个不固定键的复杂结构的哈希路径。

Answer 1

ikegami，在 cmets 中指定了自动生成您的潜艇。这是一个示例，它为您提供了一个更改路径的单一位置，并且在其操作中相当方便。我还将你的 set/get 方法简化为一个组合的 sub 来执行这两个操作：

use warnings;
use strict;

use constant {
    PATH1 => '/home/steveb/PATH1',
    PATH2 => '/home/steveb/PATH2',
};

BEGIN {
    for my $elem (qw(a b y z)){
        my $sub_name = "element_$elem";

        no strict 'refs';

        *$sub_name = sub {
            my ($hash_ref, $value) = @_;
            $hash_ref->{PATH1}{PATH2}{$elem} = $value if defined $value;
            return $hash_ref->{PATH1}{PATH2}{$elem};
        }
    }
}

my $href = {};

element_a($href, 'aaa');
element_b($href, 'bbb');
element_y($href, 'yyy');
element_z($href, 'zzz');

print element_a($href) . "\n";
print element_b($href) . "\n";
print element_y($href) . "\n";
print element_z($href) . "\n";

输出：

aaa
bbb
yyy
zzz

这样做是将两个常量值（PATH1 和PATH2）设置为您想要的值。这发生在编译时。接下来，在BEGIN 块中，我们基于文本字符串（“element_”）动态创建子例程，并在该名称的末尾附加一个元素。然后，我们将其分配为 symbol table 中的 typeglob，并带有一个具有我们想要的功能的匿名子例程。这也发生在编译时。 for my $elem... 行中的每个条目都会创建一个 element_X() 子。

如果您的路径发生变化，您只需在 use constant 块中进行更改。

现在，您似乎正在使用一个对象，那么为什么不直接在其中转储数据，而不是传递任意的 hashref 呢？这是一个例子。请注意，我是use 5.10.0;-ing，因此我可以使用//= 定义或运算符（以及say 功能）：

包装：

package Blah;

use warnings;
use strict;
use 5.10.0;

use constant {
    PATH1 => '/home/steveb/path1',
    PATH2 => '/home/steveb/path2',
};

BEGIN {
    for my $elem (qw(a b y z)){
        my $sub_name = "element_$elem";

        no strict 'refs';

        *$sub_name = sub {
            my ($self, $value) = @_;
            return $self->{PATH1}{PATH2}{$elem} //= $value;
        }
    }
}

sub new {return bless {}, shift};

1;

脚本示例：

use warnings;
use strict;
use 5.10.0;

use Blah;

my $blah = Blah->new;

$blah->element_a('a');
$blah->element_b('b');
$blah->element_y('y');
$blah->element_z('z');

say $blah->element_a;
say $blah->element_b;
say $blah->element_y;
say $blah->element_z;

输出：

a
b
y
z

注意：如果不小心使用，直接使用符号表会相当危险。覆盖你不想要的东西是微不足道的，这可能会导致各种各样的或大或小的悲伤。这就是使用no strict 'refs' 的原因。我将其范围限定为可能的最小块，并（隐式）确保不存在其他 element_* symtab（符号表）条目。 strict 捕捉到这样的可能违规行为，这就是为什么我们始终推荐它，并且只在尽可能小的范围内禁用它，只有“打破规则”所需的部分，并且只有在禁用它时绝对需要。