oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added commify.

Browse source
This commit is contained in:
JT Smith 2002-08-15 00:19:43 +00:00
parent d55f4f1c3c
commit 43b7820191
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Utility.pm
View file

@ -15,7 +15,14 @@ use strict;
use Tie::IxHash; use Tie::IxHash;
our @ISA = qw(Exporter); our @ISA = qw(Exporter);
our @EXPORT = qw(&randomizeArray &sortHashDescending &sortHash &isIn &randint &round); our @EXPORT = qw(&commify &randomizeArray &sortHashDescending &sortHash &isIn &randint &round);
#-------------------------------------------------------------------
sub commify {
my $text = reverse $_[0];
$text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
return scalar reverse $text;
}
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub isIn { sub isIn {