mirror of
https://github.com/ProjectEQ/projecteqquests
synced 2026-08-12 00:26:10 -04:00
7 lines
No EOL
132 B
Perl
7 lines
No EOL
132 B
Perl
sub commify {
|
|
my $number = reverse shift;
|
|
$number =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
|
|
return scalar reverse $number;
|
|
}
|
|
|
|
return 1; |