Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Problem with HOA.

by tamaguchi (Pilgrim)
on Aug 28, 2006 at 07:03 UTC ( #569938=perlquestion: print w/replies, xml ) Need Help??
tamaguchi has asked for the wisdom of the Perl Monks concerning the following question:

Suppose you have following data stucture:
my %hash=( 1=> [1.5, 2.1, 3.1], 2=> [1.2, 2.2, 3.2], 3=> [1.3, 2.3, 3.3], )
How would you do in the easiest way to get out an array consisting of the first ellement in each of the internal valuearrays sorted by the keys? I.e. $array[0]=1.5,  $array[1]=1.2 and $array[2]=1.3. Thank you fellow monk.

Replies are listed 'Best First'.
Re: Problem with HOA.
by cog (Parson) on Aug 28, 2006 at 07:10 UTC
    my @array = map { $hash{$_}->[0] } sort { $a <=> $b } keys %hash;

    That's the first solution that comes to my mind. Try reading it backwards:

      1. Take the keys of the hash... (keys %hash)
      2. ...sort them numerically... (sort { $a <=> $b } ...)
      3. ...and get the first element of the array corresponding to each key in the hash... (map { $hash{$_}->[0] } ...)
Re: Problem with HOA.
by GrandFather (Sage) on Aug 28, 2006 at 07:13 UTC

    Update wrong answer. cog has it right.

    use strict; use warnings; my %hash=( 1=> [1.5, 2.1, 3.1], 2=> [1.2, 2.2, 3.2], 3=> [1.3, 2.3, 3.3], ); my @array = sort {$a<=> $b} map {@{$hash{$_}}} keys %hash; print "@array";


    1.2 1.3 1.5 2.1 2.2 2.3 3.1 3.2 3.3

    DWIM is Perl's answer to Gödel

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://569938]
Approved by GrandFather
[stevieb]: I'll see how to get in touch with someone and advise that there's an issue. Thanks for helping me confiirm pryrt!
[pryrt]: also mismatches; but matches their sha1
[pryrt]: The mismatched ones have a Jan 23 2017 Last-Modified header -- I wonder if they rezipped them and forgot to update the sha1
[stevieb]: RT ticket for the csum mismatch of various versions of Strawberry Perl

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (7)
As of 2017-03-29 21:06 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (353 votes). Check out past polls.