Help for this page
use strict; ... print STDOUT "Out: " . reverse($out) . "\n"; exit 0;
In: 1234567890 Reversed: 0987654321 Array: '098' - '' - '765' - '' - '432' - '1' Out: 1234,567,890
my $out = substr(reverse(join("", map { $_ eq "" ? '' : $_ . ',' } spl +it/(\d{3})/, reverse($number))), 1);
www.com | www.net | www.org
No recent polls found