如何在Perl中打印哈希的内容？

我不断将我的哈希打印为＃个存储桶/＃个已分配。如何打印哈希的内容？

不使用while循环将是最可取的（例如，单线将是最好的）。

数据::倾销者是你的朋友。

use Data::Dumper;
my %hash = ('abc' => 123, 'def' => [4,5,6]);
print Dumper(\%hash);

将输出

$VAR1 = {
          'def' => [
                     4,
                     5,
                     6
                   ],
          'abc' => 123
        };

简单：

print "$_ $h{$_}\n" for (keys %h);

优雅，但实际上慢30％（！）：

while (my ($k,$v)=each %h){print "$k $v\n"}

在这里，您无需使用即可如何打印 Data::Dumper

print "@{[%hash]}";

出于调试目的，我将经常使用YAML。

use strict;
use warnings;

use YAML;

my %variable = ('abc' => 123, 'def' => [4,5,6]);

print "# %variable\n", Dump \%variable;

结果是：

# %variable
---
abc: 123
def:
  - 4
  - 5
  - 6

其他时间我会用Data::Dump。您不需要设置任何变量就可以使它以一种不错的格式输出，而不需要像它那样设置Data::Dumper。

use Data::Dump = 'dump';

print dump(\%variable), "\n";

{ abc => 123, def => [4, 5, 6] }

最近，我一直在进行Data::Printer调试。

use Data::Printer;
p %variable;

{
    abc   123,
    def   [
        [0] 4,
        [1] 5,
        [2] 6
    ]
}

（结果在终端上可以更加丰富多彩）

与我在此显示的其他示例不同，此示例明确设计为仅用于显示目的。如果转储绑定变量或对象的结构，则显示起来更容易。

use strict;
use warnings;

use MTie::Hash;
use Data::Printer;

my $h = tie my %h, "Tie::StdHash";
@h{'a'..'d'}='A'..'D';
p %h;
print "\n";
p $h;

{
    a   "A",
    b   "B",
    c   "C",
    d   "D"
} (tied to Tie::StdHash)

Tie::StdHash  {
    public methods (9) : CLEAR, DELETE, EXISTS, FETCH, FIRSTKEY, NEXTKEY, SCALAR, STORE, TIEHASH
    private methods (0)
    internals: {
        a   "A",
        b   "B",
        c   "C",
        d   "D"
    }
}

答案取决于哈希中的内容。如果您有一个简单的哈希，一个简单的

print map { "$_ $h{$_}\n" } keys %h;

要么

print "$_ $h{$_}\n" for keys %h;

可以，但是如果您在哈希表中填充了引用，您将可以遍历这些引用并产生明智的输出。引用的这种遍历通常称为序列化。有许多实现不同样式的模块，其中一些比较流行的模块是：

• Data::Dumper
• Data::Dump::Streamer
• YAML::XS
• JSON::XS
• XML::Dumper

由于Data::Dumper它是Perl核心库的一部分，因此它可能是最受欢迎的。但是，其他一些模块提供了非常好的功能。

我最喜欢的：Smart :: Comments

use Smart::Comments;
# ...

### %hash

而已。

循环播放：

foreach(keys %my_hash) { print "$_ / $my_hash{$_}\n"; }

功能性

map {print "$_ / $my_hash{$_}\n"; } keys %my_hash;

但是为了纯粹的优雅，我不得不选择wrang-wrang的。对于我自己的代码，我选择我的foreach。或tetro的自卸车使用。

根据我的经验，最简单的方法是只使用Dumpvalue。

use Dumpvalue;
...
my %hash = { key => "value", foo => "bar" };
my $dumper = new DumpValue();
$dumper->dumpValue(\%hash);

就像超级按钮一样工作，您不必担心格式化哈希，因为它像Perl调试器一样输出（对于调试非常有用）。另外，Dumpvalue包含在Perl模块的库存集中，因此，如果您使用某种严苛的代理（例如我在工作），就不必麻烦CPAN。

如果您想成为一个学究型的人，并且将其保持在一行（没有使用声明和shebang），那么我会从tetromino的答案中抽出来，并提出以下建议：

print Dumper( { 'abc' => 123, 'def' => [4,5,6] } );

除了使用匿名哈希跳过temp变量外，不执行任何其他特殊操作；）

我为哈希的每个元素都添加了一个空格，以便对其进行很好的查看：

print map {$_ . " "} %h, "\n";

我真的很喜欢用一个线性代码对键进行排序：

print "$_ => $my_hash{$_}\n" for (sort keys %my_hash);