如何控制 Perl 的 Data::Dumper 中的变量名称？

Question

我有这个简单的 Perl 脚本：

#! /usr/bin/perl -w

use strict;
use Data::Dumper;

my %foo = ( 'abc' => 1 );

print Dumper(\%foo);

它输出：

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

我如何让它输出这个？

%foo = (
         'abc' => 1
       );

Answer 1

print Data::Dumper->Dump( [ \%foo ], [ qw(*foo) ] );

扩展语法需要两个数组引用：一个要转储的标量，一个要使用的名称。 如果名称以 * 为前缀，并且相应的标量是 arrayref 或 hashref，则会生成数组或哈希赋值。

Answer 2

use Data::Dumper;

$Data::Dumper::Terse = 1;

print '%foo = '.(Dumper \%foo);

Answer 3

除了ysth的答案之外，您还可以使用Ovid的 Data::Dumper::Names 模块。

Answer 4

另外， Data::Dumper::Simple< /a> 大致就是这样。