Skip to content

Instantly share code, notes, and snippets.

@CLCL

CLCL/mojo_helper_commify.pl

Created May 26, 2013 10:11
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save CLCL/5652325 to your computer and use it in GitHub Desktop.
Save CLCL/5652325 to your computer and use it in GitHub Desktop.
Download ZIP
Mojoliciousでcommifyってどうすればいいのかなとりあえず自家製。
Raw
mojo_helper_commify.pl
helper commify => sub {
my ($self, $string) = @_;
1 while $string =~ s/^(-?\d+)(\d{3})/$1,$2/;
$string;
};
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment