perl - 意外的数据::倾销者::倾销者结果

Question

为什么在这里Data::Dumper::Dumper 打印 $VAR1->{'AA'}[2]而不是 { 1 => 6 } ?

#!/usr/bin/env perl
use warnings;
use strict;
use 5.10.0;

my @a = ( 'a', 'b', { 1 => 6 } );
my %h = (
    'AA' => [ @a ],
    'BB' => [ @a ],
);


say $h{BB}->[2]{1};

use Data::Dumper;
say Dumper \%h;

输出:

6
$VAR1 = {
        'AA' => [
                    'a',
                    'b',
                    {
                    '1' => 6
                    }
                ],
        'BB' => [
                    'a',
                    'b',
                    $VAR1->{'AA'}[2]
                ]
        };

Answer 1

在您的示例中 $VAR1->{'AA'}[2]和 $VAR1->{'BB'}[2]是对相同哈希的引用。

Data::Dumper 不想多次打印变量。这种行为更忠实地代表了数据结构，并且避免了它可能遇到的任何无限循环。
例如。:

my $loop;
$loop = { 1 => \$loop };
print Dumper $loop;

输出是

$VAR1 = {
     '1' => \$VAR1
};