Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: inverting hash / grouping values

by Athanasius (Abbot)
on Sep 27, 2013 at 15:02 UTC ( #1055994=note: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #! perl
    use strict;
    ...
    
    my  %dup_rev = safe_reverse \%t;
    dd \%dup_rev;
    
  2. or download this
     0:56 >perl 729_SoPW.pl
    { a => 1, b => 2, c => 1, d => 2, e => 1, f => 2 }
    { 1 => ["c", "e", "a"], 2 => ["b", "d", "f"] }
    
     0:57 >
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1055994]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (6)
As of 2015-08-30 16:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The oldest computer book still on my shelves (or on my digital media) is ...













    Results (350 votes), past polls