Jenda Krynicky wrote:
And if you feel like it, create a function that reverses
(a => 1, b => 3, c => 1) => (1 => ['a','c'], 2 => ['b'])
That's something that's not a SIMPLE oneliner. Even though of course
it's not too complex either.
I think it's simple enough:
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
# Make Data::Dumper pretty
$Data::Dumper::Sortkeys = 1; # ASCII sort hash keys
$Data::Dumper::Indent = 1; # first style, not indent 1 space
$Data::Dumper::Maxdepth = 0; # limits depth of output, zero == infinite
my %h = (a => 1, b => 3, c => 1);
my %r = ();
push @{ $r{$h{$_}} }, $_ for keys %h; # one line :)
print Dumper \%h, \%r;
--
Just my 0.00000002 million dollars worth,
Shawn
Programming is as much about organization and communication
as it is about coding.
My favourite four-letter word is "Done!"
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
