189

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

Without using a while loop would be most preferable (for example, a one-liner would be best).

0

11 Answers 11

281

Data::Dumper is your friend.

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

will output

$VAR1 = {
          'def' => [
                     4,
                     5,
                     6
                   ],
          'abc' => 123
        };
4
  • 3
    the original poster might also want to look into the various Data::Dumper options, in particular turning on 'Sortkeys' can be very useful
    – plusplus
    Jul 22, 2009 at 8:08
  • 1
    @JonathanDay I was missing that detail and it was helpful! Thanks!
    – Sos
    Apr 3, 2014 at 15:20
  • 6
    What does it mean to add a slash in front of the % ?
    – shampoo
    Jan 25, 2016 at 11:38
  • 18
    @shampoo slash operator creates a reference, a bit like the & operator in C and C++. The reason it matters in this context is that in Perl, if you call a function with a hash value as the argument, that hash value gets listified and expanded into multiple arguments - so %hsh=("a" => 1, "b" => 2); foo(%hsh); would be equivalent to foo("a", 1, "b", 2). If you instead want the function to operate on the hash itself, you need to pass a reference to the hash: foo(\%hsh); See perldoc.perl.org/perlsub.html#Pass-by-Reference
    – tetromino
    Jan 27, 2016 at 15:08
71

Easy:

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

Elegant, but actually 30% slower (!):

while (my ($k,$v)=each %h){print "$k $v\n"}
6
  • 9
    Sleazy: print "@_\n" while @_ = each %h
    – FMc
    Jul 22, 2009 at 3:23
  • I think you mean print "$_ $h{$_}\n" for (keys %h);, $k doesn't exist in that example. Jul 22, 2009 at 4:02
  • 4
    Also, benchmark before making claims about efficiency (or at least qualify the type of efficiency you are talking about). The for loop is faster than the while up to at least 10,000 keys: gist.github.com/151792 Jul 22, 2009 at 4:10
  • 1
    Of course you're right re: $k. But it's more efficient in Perl 6! :) Yes, you're right on that too. I would never have thought to actually optimize or profile my Perl, but I'm glad to learn this. Of course, each should be more efficient (because there's no extra hash lookup on the key). But it's ~30% slower! Jul 22, 2009 at 8:12
  • Hi, Jonathan Graehl. Sorry, still not understanding. You're saying that each is ~30% slower based on what? Is everytime, for every situation, a gap of 30% ?
    – Carlos Sá
    Nov 24, 2017 at 11:47
43

Here how you can print without using Data::Dumper

print "@{[%hash]}";
0
27

For debugging purposes I will often use YAML.

use strict;
use warnings;

use YAML;

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

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

Results in:

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

Other times I will use Data::Dump. You don't need to set as many variables to get it to output it in a nice format than you do for Data::Dumper.

use Data::Dump = 'dump';

print dump(\%variable), "\n";
{ abc => 123, def => [4, 5, 6] }

More recently I have been using Data::Printer for debugging.

use Data::Printer;
p %variable;
{
    abc   123,
    def   [
        [0] 4,
        [1] 5,
        [2] 6
    ]
}

( Result can be much more colorful on a terminal )

Unlike the other examples I have shown here, this one is designed explicitly to be for display purposes only. Which shows up more easily if you dump out the structure of a tied variable or that of an object.

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"
    }
}
3
  • having the colors is "neat", but either I am doing something wrong, or using "use Data::Printer; p %var;" doesn't print the arrows in hashes, and for a newbie like me that helps
    – Sos
    Apr 3, 2014 at 15:28
  • @Sosi If you look at the output in the answer, you will see that it doesn't output the => like you expect. It instead always prints the key, several spaces, and then the value. Which helps a human scan over the output. Apr 3, 2014 at 18:04
  • I can't get Data::Dump to work in 5.32. I have to call CORE::dump(), but there is still an error: Can't find label HASH ...
    – grjash
    Aug 16, 2022 at 19:34
12

The answer depends on what is in your hash. If you have a simple hash a simple

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

or

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

will do, but if you have a hash that is populated with references you will something that can walk those references and produce a sensible output. This walking of the references is normally called serialization. There are many modules that implement different styles, some of the more popular ones are:

Due to the fact that Data::Dumper is part of the core Perl library, it is probably the most popular; however, some of the other modules have very good things to offer.

10

My favorite: Smart::Comments

use Smart::Comments;
# ...

### %hash

That's it.

3
  • 7
    Sorry, down vote from me for stuff that hijacks comments for actual functionality. A maintenance programmer could spend all day trying to work out why code like that was printing out unexpected stuff.
    – MikeKulls
    Dec 18, 2013 at 4:43
  • 2
    @MikeKulls, np. It's a source filter, so I understand. Also, having written scripts that check every module that I put into production prep that it doesn't use Smart::Comments, I see it from that perspective too. But to the counter, Smart::Comments is pretty well behaved as a scoped module, there shouldn't be output behavior in any module that doesn't also use SC. So, the problem would be isolated to those scopes with a use statement. If you're saying that a maintenance programmer has no responsibility to read the doc on included modules, I can't agree. Still, thanks for commenting
    – Axeman
    Dec 18, 2013 at 15:19
  • 8
    I'm not saying they don't have a responsibility but it's not likely to be the first thing they look for. Not ever having seen Smart Comments module before I wouldn't know why the above code was printing something out. I could spend days skipping over the comment and not even process it because comments should do nothing. Making them do something is very bad imo. They can be used for generating documentation etc as long as they don't alter the behaviour of the program.
    – MikeKulls
    Jan 6, 2014 at 3:28
5

Looping:

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

Functional

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

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.

2
  • 3
    There's no functional difference between your uses of foreach and map. map should be used for list transformations, not in void context to emulate a for-loop
    – friedo
    Jul 22, 2009 at 0:04
  • it would be interesting to see the 'byte code' results of each... I wonder if map is more or less efficient.
    – Ape-inago
    Jul 22, 2009 at 2:22
2

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

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

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:

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

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

2
  • The OP says he has "my hash" that needs printing. This answer is just cleverness for its own sake
    – justintime
    Jul 22, 2009 at 8:42
  • OP was hoping to do it in one line. Was just showing a one-line way of doing it. So that's worthy of a down-vote?
    – Kyle Walsh
    Jul 22, 2009 at 11:52
1

The easiest way in my experiences is to just use Dumpvalue.

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

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).

1
  • The above code does not work in Perl 5.32. There's a conflict between "Dumpvalue", "DumpValue", and "dumpValue". If all three use upper or lower case "v', the error message is like the following: Reference found where even-sized list expected ... Can't locate object method "new" via package "DumpValue" (perhaps you forgot to load "DumpValue"?) ...
    – grjash
    Aug 16, 2022 at 19:18
1

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

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

Your Answer

Reminder: Answers generated by Artificial Intelligence tools are not allowed on Stack Overflow. Learn more

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Not the answer you're looking for? Browse other questions tagged or ask your own question.