2

我有如下简单的 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
        };
,

但我想要的输出是不同的。所以我尝试了下面的代码：

#!/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
        };

但我需要的是如下。我不需要 VAR1 等，也不=>需要在输出中。我只需要键和值，它们之间有一个空格

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

所有的 perl 专家，谁能给我正确的方向来打印我需要的输出！

我从 perleone 的建议中得到了我需要的东西。但我也尝试了以下说法：

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

现在如果我这样做

print Dumper(\%y);

它给了我一个输出：

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

我在这里哪里出错了？

4

1 回答 1

6

看看文档。使用这些设置：

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

...

print Dumper( \%x );
于 2013-01-21T12:08:52.083 回答