如何獲取Perl Data :: Dumper以遵循作為哈希鍵的引用

Question

Data :: Dumper似乎沒有擴展作為哈希鍵的引用，而且我無法弄清楚要進行哪些更改。 這有可能嗎？

示例代碼：

#!/usr/bin/perl
use Data::Dumper;
@array = ('foo', 'bar');
$arf = \@array;
%hash1 = ( 'baz' => $arf );
%hash2 = ( $arf => 'baz' );
print Dumper(@array); print "\n";
print Dumper(%hash1); print "\n";
print Dumper(%hash2);

輸出：

$VAR1 = 'foo';
$VAR2 = 'bar';

$VAR1 = 'baz';
$VAR2 = [
          'foo',
          'bar'
        ];

$VAR1 = 'ARRAY(0x8be1b04)';
$VAR2 = 'baz';

但是我想要一些東西來獲得輸出：

$VAR1 = 'foo';
$VAR2 = 'bar';

$VAR1 = 'baz';
$VAR2 = [
          'foo',
          'bar'
        ];

$VAR1 = [
          'foo',
          'bar'
        ];
$VAR2 = 'baz';

Answer 1

簡單地說，改變

%hash2 = ( $arf => 'baz' );

至

@hash2 = ( $arf => 'baz' );

當然，它不再是哈希，而是數組。