<?xml version="1.0" encoding="windows-1252"?>
<node id="358317" title="Old_Gray_Bear's scratchpad" created="2004-06-01 13:49:51" updated="2005-08-15 00:22:51">
<type id="182711">
scratchpad</type>
<author id="290905">
Old_Gray_Bear</author>
<data>
<field name="doctext">
&lt;code&gt;
sort sort_sub, keys(%a_hash);
# Sort allows you to use a subroutine to evaluate the keys.  
# See perldoc -f sort.

sub sort_sub {
    return($a_hash{$a} cmp $a_hash{$b}
}

# -- Assumes that the values in the hash are character strings; use '&lt;=&gt;' if they are not
&lt;/code&gt;
&lt;p&gt;
&lt;hr&gt; Stuff
&lt;br /&gt;&lt;a HREF="/index.pl?node_id=170492"&gt;Zen And The Art Of Perl Poetry&lt;/a&gt;
&lt;br /&gt;&lt;a HREF="/index.pl?node_id=26380"&gt;The path to mastery&lt;/a&gt;

&lt;br /&gt;&lt;a HREF="/index.pl?node_id=202202"&gt;How to apply patches to PM code&lt;/a&gt;
&lt;br /&gt;&lt;a HREF="/index.pl?node_id=145860"&gt;PerlMonks CSS Examples&lt;/a&gt;
&lt;br /&gt;[id://416865]</field>
</data>
</node>
