我需要一个有效的commify过滤器或例程来与Template :: Toolkit一起使用.它将在页面上多次使用.它应该支持小数.
这个可以在Perl Cookbook中找到:
sub commify {
my $text = reverse $_[0];
$text =~ s/(\d\d\d)(?=\d)(?!\d*\.)/$1,/g;
return scalar reverse $text;
}
Run Code Online (Sandbox Code Playgroud)
有更有效的方法吗?
| 归档时间: |
|
| 查看次数: |
1334 次 |
| 最近记录: |