You could use a closure: 
use Carp;

sub make_by_value_sorter {
    my ($hash, $op) = @_;

    return sub ($$) { $hash->{$_[0]} <=> $hash->{$_[1]} }
        if $op eq '<=>';
    return sub ($$) { $hash->{$_[0]} cmp $hash->{$_[1]} }
        if $op eq 'cmp';

    croak("Unknown sort op '$op'");
}

my $hash = {
    bar => 1,
    foo => 2,
    baz => 3,
    fah => 4,
};

my $by_value = make_by_value_sorter($hash, '<=>');

my @a = sort $by_value keys %$hash; # Simple case
my @b = sort {
    substr($a, 0, 1) cmp substr($b, 0, 1)
    or $by_value->($a, $b) # As part of another sort sub
} keys %$hash;

[download]
Cheers,
-Anomo

In reply to Re: reusable hash value sort by Anonymous Monk
in thread reusable hash value sort by Anonymous Monk

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.