Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -wl
use strict;
...
   }xe and print for @_;
}
__END__
  2. or download this
    perl -wle ' s/^/("0"x(6-length))/xe and print for @ARGV;' 133 121 10 13
  3. or download this
    perl -wle ' s/^(\d+)/("0"x(6-length).$1)/xe and print or
    s/^(\w)/("\x20"x(6-length).$1)/xe and print for @ARGV;' 133 121 10
+ 13 red