Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl

...
    my ($a, $b, $x, $y) = @_;
    printf "%-10s %-10s %s %-10s %-10s\n", $a, $x, (qw/< = >/)[1+($x c
+mp $y)], $b, $y;
}
  2. or download this
     .,-;:!?"'`_#$%&*+/|=@\^~()<>[]{}0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmN
+nOoPpQqRrSsTtUuVvWwXxYyZz     intended sequence
 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcde
+fghijklmnopqrstuvwxyz{|}~     natural ASCII sequence
...
Abel
baker
Charlie