Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl -w
use strict;
...
($n1, $n2) = map { int $_ } ($n1, $n2);

print "$n1, $n2\n";
  2. or download this
    0012, 0034
12, 34
  3. or download this
    {
  local $_ = $amount;
  /\./ ? s/(?<=\d)(?=(\d{3})+(?:\.))/,/g : s/(?<=\d)(?=(\d{3})+(?!\d))
+/,/g;
  $amount = $_;
}