First of all, this task is not one that should be undertaken by a subroutine using sort(). One must remember that sort sorts into an array, so there is no knowledge of the hash we sorted from! Therefore, the task you propose is (probbably) impossiblie, as long as you want to sort by_something, without giving it the hashes name, and globalizing the hash, or just passing the hash itself (Which will come up later).

The pragmatic programmer aproaches issues that he has trouble with, with differant. I have to ask, what is the purpose of a subroutine that sorts? Why not pass the subroutine a hash, , and hard code the sort/hash name into the script. (Does exactly the same thing, except you don't have to deal with those problems....) 
key_val(%whatever_hash_name_you_want_);
sub key_val {
my %hash = shift;
map {print "$_ - $hash{$_} \n";} sort{$hash{$a} cmp $hash{$b}} keys %h
+ash;
}

[download]
Passing coderefs would even allow you to print in any format you wished!

If, for some reason you *have* to have a subroutine block in the sort: It would be more pragmatic to just use the hashname as an arg. You can then shift the hashname, and do the sort, but this would not compy with strict (you can figure the code out yourself :) )

In reply to Re: reusable hash value sort by Revelation
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.