Help for this page

Select Code to Download


  1. or download this
    my %characterOrder = (
'a' => 1,
...
'Ç' => 4,
...
);
  2. or download this
    sub GoodSort
{
  $characterOrder{$a} <=> $characterOrder{$b}
}