blocks|key|1283949|text|Data::Dumper是你的朋友。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1283950|use+Data::Dumper;
my+%25hash+=+('abc'+=>+123,+'def'+=>+[4,5,6]);
print+Dumper(\%25hash);|code-block|syntax|javascript|1283951|将输出|1283952|$VAR1+=+{
++++++++++'def'+=>+[
+++++++++++++++++++++4,
+++++++++++++++++++++5,
+++++++++++++++++++++6
+++++++++++++++++++],
++++++++++'abc'+=>+123
++++++++};|1283953|entityMap|0|LINK|mutability|MUTABLE|url|http://perldoc.perl.org/Data/Dumper.html^0|0|C|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|U|8|@]|9|@$A|V|B|W|1|X]]|C|$]]|$1|D|3|E|5|F|7|Y|8|@]|9|@]|C|$G|H]]|$1|I|3|J|5|6|7|Z|8|@]|9|@]|C|$]]|$1|K|3|L|5|F|7|10|8|@]|9|@]|C|$G|H]]|$1|M|3|-4|5|6|7|11|8|@]|9|@]|C|$]]]|N|$O|$5|P|Q|R|C|$S|T]]]]

<a href="http://perldoc.perl.org/Data/Dumper.html" rel="noreferrer">Data::Dumper</a> is your friend.

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

will output

<pre><code>$VAR1 = {
 'def' =&gt; [
 4,
 5,
 6
 ],
 'abc' =&gt; 123
 };
</code></pre>

blocks|key|1498808|text|简单：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1498809|print+"$_+$h{$_}\n"+for+(keys+%25h);|code-block|syntax|javascript|1498810|优雅，但实际上慢了30%25+(!)：|1498811|while+(my+($k,$v)=each+%25h){print+"$k+$v\n"}|1498812|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

Easy: 

<pre><code>print "$_ $h{$_}\n" for (keys %h);
</code></pre>

Elegant, but actually 30% slower (!):

<pre><code>while (my ($k,$v)=each %h){print "$k $v\n"}
</code></pre>

blocks|key|1284116|text|下面是不使用Data::Dumper进行打印的方法|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1284117|print+"@{[%25hash]}";|code-block|syntax|javascript|1284118|entityMap|0|LINK|mutability|MUTABLE|url|https://metacpan.org/pod/Data::Dump^0|6|C|6|C|0|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@$9|T|A|U|B|C]]|D|@$9|V|A|W|1|X]]|E|$]]|$1|F|3|G|5|H|7|Y|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|Z|8|@]|D|@]|E|$]]]|L|$M|$5|N|O|P|E|$Q|R]]]]

Here how you can print without using <a href="https://metacpan.org/pod/Data::Dump" rel="noreferrer"><code>Data::Dumper</code></a> 

<pre><code>print "@{[%hash]}";
</code></pre>

blocks|key|1498897|text|我的最爱：Smart::Comments|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1498898|use+Smart::Comments;
#+...

###+%25hash|code-block|syntax|javascript|1498899|就这样。|1498900|entityMap|0|LINK|mutability|MUTABLE|url|http://search.cpan.org/perldoc?Smart::Comments^0|5|F|0|0|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@$A|T|B|U|1|V]]|C|$]]|$1|D|3|E|5|F|7|W|8|@]|9|@]|C|$G|H]]|$1|I|3|J|5|6|7|X|8|@]|9|@]|C|$]]|$1|K|3|-4|5|6|7|Y|8|@]|9|@]|C|$]]]|L|$M|$5|N|O|P|C|$Q|R]]]]

My favorite: <a href="http://search.cpan.org/perldoc?Smart::Comments" rel="noreferrer">Smart::Comments</a>

<pre><code>use Smart::Comments;
# ...

### %hash
</code></pre>

That's it.

blocks|key|1498880|text|循环：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1498881|foreach(keys+%25my_hash)+{+print+"$_+/+$my_hash{$_}\n";+}|code-block|syntax|javascript|1498882|功能|1498883|map+{print+"$_+/+$my_hash{$_}\n";+}+keys+%25my_hash;|1498884|如果不是为了纯粹的优雅，我必须选择wrang-wrang，对于我自己的代码，我会选择我的foreach。或者是tetro's+Dumper+use|1498885|entityMap^0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|R|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|S|8|@]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

Looping:

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

Functional

<pre><code>map {print "$_ / $my_hash{$_}\n"; } keys %my_hash;
</code></pre>

But for sheer elegance, I'd have to choose wrang-wrang's. For my own code, I'd choose my foreach. Or tetro's Dumper use.

blocks|key|1498927|text|根据我的经验，最简单的方法就是使用Dumpvalue。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1498928|use+Dumpvalue;
...
my+%25hash+=+{+key+=>+"value",+foo+=>+"bar"+};
my+$dumper+=+new+DumpValue();
$dumper->dumpValue(\%25hash);|code-block|syntax|javascript|1498929|它的工作方式非常棒，您不必担心格式化散列，因为它像Perl调试器一样输出散列(非常适合调试)。另外，Dumpvalue包含在Perl模块的常用集合中，所以如果您使用某种严格的代理(就像我正在工作)，那么您不必与CPAN打交道。|1498930|entityMap|0|LINK|mutability|MUTABLE|url|http://perldoc.perl.org/Dumpvalue.html^0|H|9|0|0|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@$A|T|B|U|1|V]]|C|$]]|$1|D|3|E|5|F|7|W|8|@]|9|@]|C|$G|H]]|$1|I|3|J|5|6|7|X|8|@]|9|@]|C|$]]|$1|K|3|-4|5|6|7|Y|8|@]|9|@]|C|$]]]|L|$M|$5|N|O|P|C|$Q|R]]]]

The easiest way in my experiences is to just use <a href="http://perldoc.perl.org/Dumpvalue.html" rel="nofollow noreferrer">Dumpvalue</a>.

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

Works like a charm and you don't have to worry about formatting the hash, as it outputs it like the Perl debugger does (great for debugging). Plus, Dumpvalue is included with the stock set of Perl modules, so you don't have to mess with CPAN if you're behind some kind of draconian proxy (like I am at work).

blocks|key|1498853|text|如果你想变得学究，把它保持在一行(没有use语句和shebang)，那么我会借鉴tetromino的答案，并建议：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1498854|print+Dumper(+{+'abc'+=>+123,+'def'+=>+[4,5,6]+}+);|code-block|syntax|javascript|1498855|除了使用匿名散列跳过temp变量外，不做任何特殊操作;)|1498856|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

If you want to be pedantic and keep it to one line (without use statements and shebang), then I'll sort of piggy back off of tetromino's answer and suggest:

<pre><code>print Dumper( { 'abc' =&gt; 123, 'def' =&gt; [4,5,6] } );
</code></pre>

Not doing anything special other than using the anonymous hash to skip the temp variable ;)

blocks|key|1498990|text|我为散列的每个元素添加了一个空格，以便更好地查看它：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1498991|print+map+{$_+.+"+"}+%25h,+"\n";|code-block|syntax|javascript|1498992|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

I append one space for every element of the hash to see it well:

<pre><code>print map {$_ . " "} %h, "\n";
</code></pre>

blocks|key|1284191|text|我真的喜欢在一个线性代码中对关键字进行排序：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1284192|print+"$_+=>+$my_hash{$_}\n"+for+(sort+keys+%25my_hash);|code-block|syntax|javascript|1284193|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

I really like to sort the keys in one liner code:

<pre><code>print "$_ =&gt; $my_hash{$_}\n" for (sort keys %my_hash);
</code></pre>

I keep printing my hash as # of buckets / # allocated.
How do I print the contents of my hash? 

Without using a <code>while</code> loop would be most preferable (for example, a <a href="https://en.wikipedia.org/wiki/One-liner_program" rel="noreferrer">one-liner</a> would be best).

How can I print the contents of a hash in Perl?

调试器

Perl

我一直将我的哈希值打印为# of bucket/# allocated。如何打印散列的内容？不使用while循环将是最好的(例如，将是最好的)。

问如何在Perl中打印散列的内容？
EN

回答 9

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在Perl中打印散列的内容？EN

回答 9

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在Perl中打印散列的内容？
EN