PerlのData :: Dumperで変数名を制御するにはどうすればいいですか？

Question

私はこの単純なPerlスクリプトを持っている：

#! /usr/bin/perl -w 

use strict; 
use Data::Dumper; 

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

print Dumper(\%foo); 

それは出力：

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

は、どのように私の代わりに、このことは、出力作るのですか？ダンプするスカラーの1、および使用するための名前の1：

は

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

Answer 1

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

拡張構文は、二つの配列リファレンスを取ります。名前に接頭辞*があり、対応するスカラーが配列参照またはハッシュリファレンスの場合、配列またはハッシュ割り当てが生成されます。

Answer 2

ysthの回答に加えて、OvidのData::Dumper::Namesモジュールを使用することができます。

Answer 3

また、Data::Dumper::Simpleもそうです。データの代わりに）

Answer 4

use Data::Dumper; 

$Data::Dumper::Terse = 1; 

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