處理在Perl

Question

複雜的哈希我有如下簡單的Perl腳本：

#!/usr/bin/perl 
use strict; 
use Data::Dumper; 
my %x; 

$x{"a"}="b"; 
$x{"b"}={'c'=>3,'d'=>4}; 
$x{"c"}={'e'=>{'f'=>5,'g'=>6},'h'=>{'i'=>7,'j'=>8}}; 

print Dumper(%x); 

這是如下輸出我：

> ./temp.pl 
$VAR1 = 'c'; 
$VAR2 = { 
      'e' => { 
        'g' => 6, 
        'f' => 5 
       }, 
      'h' => { 
        'j' => 8, 
        'i' => 7 
       } 
     }; 
$VAR3 = 'a'; 
$VAR4 = 'b'; 
$VAR5 = 'b'; 
$VAR6 = { 
      'c' => 3, 
      'd' => 4 
     }; 
, 

但我想要的輸出中的東西different.so我試過下面代碼：

#!/usr/bin/perl 

use strict; 
use Data::Dumper; 
my %x; 

$x{"a"}="b"; 
$x{"b"}={'c'=>3,'d'=>4}; 
$x{"c"}={'e'=>{'f'=>5,'g'=>6},'h'=>{'i'=>7,'j'=>8}}; 

foreach (keys %x) 
{ 
     if(ref($x{$_}) eq "HASH") 
     { 
     print Dumper(\%{$x{$_}}).","; 
     } 
     else 
     { 
     print $x{$_}.",\n" 
     } 
} 

但是這下面給我一個輸出：

> ./temp.pl 
$VAR1 = { 
      'e' => { 
        'g' => 6, 
        'f' => 5 
       }, 
      'h' => { 
        'j' => 8, 
        'i' => 7 
       } 
     }; 
,b, 
$VAR1 = { 
      'c' => 3, 
      'd' => 4 
     }; 

，但我需要的是爲below.i DONOT需要VAR1等，也=>在output.I剛需鍵和值有空間，他們

之間

c { 
      'e' { 
        'g' 6, 
        'f' 5 
       }, 
      'h' { 
        'j' 8, 
        'i' 7 
       } 
     }, 
a b, 
b { 
      'c' 3, 
      'd' 4 
     } 

所有Perl的專家門診在那裏，有人可以給我正確的方向來打印輸出，因爲我需要它！

我從perleone的建議中得到了我所需要的。 但我也試過以下staement：

my %y={"one"=>404,"two"=>\%x}; 

現在如果我做

print Dumper(\%y); 

它給我的輸出：

> ./temp.pl 
{ 
      'HASH(0x807f08c)' undef 
     } 

在哪裏，我去錯在這裏？

Answer 1

看看documentation。使用這些設置：

$Data::Dumper::Pair  = ' '; 
$Data::Dumper::Sortkeys = 1; 
$Data::Dumper::Terse = 1; 

... 

print Dumper(\%x);