绑定两个 Perl 哈希（不是两个匿名哈希）

Question

为了重用一些已经编写好的代码库，我需要将一个散列（%bar）“伪装”成另一个散列（%foo），这样%bar 中所做的每个更改都可以通过%foo 看到在他们的绑定之后。​​

使用匿名哈希结构很简单：只需将bar 的引用复制到foo 的引用中（$foo = $bar;）。

“不使用”匿名散列怎么样（因为我必须重用的代码不是使用匿名散列结构构建的）？只有这样吗？

谢谢。

use strict;
use Data::Dumper;

my  %foo = ();
my  %bar = ();

%foo = %bar;    # This won't work as it copies %bar into %foo as at the current time.

$bar{A}->{st} = 'a';
$bar{A}->{qt} = 'a';
$bar{B}->{st} = 'b';
$bar{B}->{qt} = 'b';

# $foo{A}->{st}  doesn't exist

当然，匿名哈希构造会是一件好事。

use strict;
use Data::Dumper;

my  $foo = {};
my  $bar = {};

$foo = $bar;   # This works fine.

$bar->{A}->{st} = 'a';
$bar->{A}->{qt} = 'a';
$bar->{B}->{st} = 'b';
$bar->{B}->{qt} = 'b';

print STDOUT "foo\n---\n";
print Dumper($foo) . "\n\n";

print STDOUT "bar\n---\n";
print Dumper($bar) . "\n\n";

产生预期的结果：

foo
---
$VAR1 = {
          'B' => {
                   'st' => 'b',
                   'qt' => 'b'
                 },
          'A' => {
                   'qt' => 'a',
                   'st' => 'a'
                 }
        };


bar
---
$VAR1 = {
          'B' => {
                   'st' => 'b',
                   'qt' => 'b'
                 },
          'A' => {
                   'qt' => 'a',
                   'st' => 'a'
                 }
        };

Answer 1

对于您的示例，您可以使用 Data::Alias 将 %bar 别名为 %foo。这使您可以在 %bar 中进行更改，然后在 %foo 中查看。

use strict;
use warnings;
use Data::Printer;
use Data::Alias;

my  %foo = ();
my  %bar = ();

alias %foo = %bar;

$bar{A}->{st} = 'a';
$bar{A}->{qt} = 'a';
$bar{B}->{st} = 'b';
$bar{B}->{qt} = 'b';

p %foo;
p %bar;

输出：

{
    A   {
        qt   "a",
        st   "a"
    },
    B   {
        qt   "b",
        st   "b"
    }
}
{
    A   {
        qt   "a",
        st   "a"
    },
    B   {
        qt   "b",
        st   "b"
    }
}