Help for this page

Select Code to Download


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

...
  my ($X, $Y, $Z) = split /(?<=\d)-/;
  printf "%11s => %3s %3s %3s\n", $_, $X, $Y, $Z;
  }
  2. or download this
    -42--42--42 => -42 -42 -42
 -42--42-42 => -42 -42  42
...
  42--42-42 =>  42 -42  42
  42-42--42 =>  42  42 -42
   42-42-42 =>  42  42  42