Thank you for pointing out that the options should not be so rigid Arundear. I changed the dispatch table to include the option variations, even though I did not use switch like you did. I also kept case sensitive in because I like it. (I know that is not the best reason, but it is why case sensitivity is still there.)

sub short_sorts {
  my ($a,$b,$type) = @_;
  
  # Legend:
  # s = case sensitive
  # i = case insensitive
  # a = ascending
  # d = descending
  # r = reverse (right to left)
  # n = numbers
  # l = length of value
  
  my %sorts;
  $sorts{$_} = sub { $_[0] cmp $_[1] } for qw(sa as);
  $sorts{$_} = sub { $_[1] cmp $_[0] } for qw(sd ds);
  $sorts{$_} = sub { uc $_[0] cmp uc $_[1] } for qw(ia ai);
  $sorts{$_} = sub { uc $_[1] cmp uc $_[0] } for qw(id di);
  $sorts{$_} = sub { $_[0] <=> $_[1] } for qw(na an);
  $sorts{$_} = sub { $_[1] <=> $_[0] } for qw(nd dn);
  $sorts{$_} = sub { reverse($_[0]) cmp reverse($_[1]) } for qw(sar sr
+a asr ars rsa ras);
  $sorts{$_} = sub { reverse($_[1]) cmp reverse($_[0]) } for qw(sdr sr
+d dsr drs rsd rds);
  $sorts{$_} = sub { uc reverse($_[0]) cmp uc reverse($_[1]) } for qw(
+iar ira air ari ria rai);
  $sorts{$_} = sub { uc reverse($_[1]) cmp uc reverse($_[0]) } for qw(
+idr ird dir dri rid rdi);
  $sorts{$_} = sub { reverse $_[0] <=> reverse $_[1] } for qw(nar nra 
+anr arn rna ran);
  $sorts{$_} = sub { reverse $_[1] <=> reverse $_[0] } for qw(ndr nrd 
+dnr drn rnd rdn);
  $sorts{$_} = sub { length($_[0]) <=> length($_[1]) } for qw(la al);
  $sorts{$_} = sub { length($_[1]) <=> length($_[0]) } for qw(ld dl);
  
  if ($type) {
    croak "$type is not supported" if !exists $sorts{$type};
    return $sorts{$type}->($a,$b);
  }
  else {
    # A random sort was here, however, it was not acting as expected, 
+so the die is being used.
    die "A sort type was not selected.";
  }
}

[download]

I'm still passing $a and $b since there are times where I am sorting hashes by a key within a hash of hashes.

(sort {
  short_sorts($master_list{$a}{members},$master_list{$b}{members},'nd'
+) ||
  short_sorts($a,$b,'ia')
} keys %master_list)

[download]

I am not sure how I am going to combine those just yet.

Have a cookie and a very nice day!
Lady Aleena

In reply to Re^2: short sorts by Lady_Aleena
in thread short sorts by Lady_Aleena

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.