Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Re: Format a Dumper module output file.

by choroba (Chancellor)
on Oct 03, 2012 at 12:32 UTC ( #997047=note: print w/replies, xml ) Need Help??

in reply to Format a Dumper module output file.

The comments should explain what's going on:
my %subkeys; # The keys of %subkeys are the subkeys, i.e. GID, AIG, TEA in this cas +e. undef @subkeys{map keys %{ $VAR1->{$_} },keys %$VAR1}; # For each subkey, go through the hash and pick up the corresponding v +alue. for my $subkey (sort keys %subkeys) { print +($subkey, join "\t", q(), map $VAR1->{$_}{$subkey}, sort { $a <=> $b } keys %$VAR1), "\n"; }
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ