ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 使用sprintf 输出"money number"

使用sprintf 输出"money number"

原创 Linux操作系统 作者:物理狂人 时间:2012-04-23 19:07:35 0 删除 编辑
sub big_money{
1 my $number = sprintf "%.2f", shift @_;
2 #add one comma each time through the do-nothing loop
3 1 while $number =~ s/^(-?\d+)(\d\d\d)/$1,$2/;
4 # Put the dollar sign in the right place
5 $number =~ s/^(-?)/$1\$/;
6 $number;
}

注解:$number=12345678.9,则经过 sprintf 得到12345678.90,然后第3行代码第一次迭代替换为12345,678.90,第二次迭代为12,345,678,90,最后第5行得到$12,345,678,90。这里不能使用/g modifier 去做全局搜索-替代,因为是从后向前进行操作,而不是从前向后进行操作。

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/24104518/viewspace-722061/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2010-06-16

  • 博文量
    80
  • 访问量
    140061