Help for this page

Select Code to Download


  1. or download this
    use strict;

...
print STDOUT "Out: " . reverse($out) . "\n";

exit 0;
  2. or download this
    In: 1234567890
Reversed: 0987654321
Array: '098' - '' - '765' - '' - '432' - '1'
Out: 1234,567,890
  3. or download this
    my $out = substr(reverse(join("", map { $_ eq "" ? '' : $_ . ',' } spl
+it/(\d{3})/, reverse($number))), 1);