Help for this page

Select Code to Download


  1. or download this
    package SortCustom;

...
}

1;
  2. or download this
    SortCustom::set_order('+','-');
@set = sort { csort($a,$b) } @set;
  3. or download this
    use strict;
use warnings;
...
my @csort = sort { SortCustom::csort($a,$b) } @values;

for (0..$#values) { printf "%s : %s\n", $nsort[$_], $csort[$_] }