If values are non-repeated, as it appears in %order, you could also use a reversed version of the hash to do the sort. Please note that this doesn't hold if there are repeated values in %order!

In that less general hypothesis, you could do:

my @ordered ;
my %r_order = reverse %order ;
# %r_order is now ( 1 => 'DATE', 2=> 'CPP'...
# ...and so on.

{
  # slice %order in @temp
  # (the following two lines could be compacted into one
  # but... KISS :-)
  my @temp = sort { $a <=> $b } @order{@to_be_ordered} ;
  @ordered = @r_order{@temp} ;  

  # @temp will now disappear :-)
}

# Now @ordered contains the sorted list based on
# @to_be_ordered, so...
&do_what_you_want_with(@ordered) ;

[download]

That should work.

Ciao!
--bronto

In reply to Re: Sorting an array based on hash values by bronto
in thread Sorting an array based on hash values by kevsurf

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.