Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    
    ...
    
    my @newsorted = sort_by { tr/ .,\-;:!?"'`_#$%&*+\/|=@\\^~()<>[]{}01234
    +56789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz/ -~/r } @li
    +st;
    print "@newsorted\n\n";
    
  2. or download this
     .,-;:!?"'`_#$%&*+/|=@\^~()<>[]{}0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmN
    +nOoPpQqRrSsTtUuVvWwXxYyZz intended sequence
     !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcde
    +fghijklmnopqrstuvwxyz{|}~ natural ASCII sequence
    ...
    ! " "Hello" ' (hello) - . 21708 : ; ? @adieu Abel Charlie [goodbye] ^C
    +harlie _ ` baker zebra {adieu} ~Adieu
    
    . - ; : ! ? " "Hello" ' ` _ @adieu ^Charlie ~Adieu (hello) [goodbye] {
    +adieu} 21708 Abel baker Charlie zebra