Perl语言入门（第8版）

260

｜

第

14

章

到，格式字符串（即

sprintf

函数的第一个参数）在格式化某些数字前加上

0

，这种

用法我们在第

5

章介绍

printf

时并未提及。格式化定义中数字字段的前置

0

表示必要

时会在数字前补

0

以符合指定的宽度要求。如果没有前置

0

，那么日期与时间字符串里

的数字就不会用

0

补足宽度，而只留下相应长度的空格，比如

"2038/ 1/19 3

:

0

:

8"

。

用

sprintf

格式化金额数字

sprintf

的常见用法是格式化小数点后具有特定精度的数字，比如要把

2.49997

这个

金额显示成

2.50

，而不是

2.5

，我们可以使用

"%.2f"

这个格式来轻松完成格式化：

my $money = sprintf "%.2f", 2.49997;

四舍五入能够使得数字精简并且易读，但绝大多数情况下应该保留原始数据的精度，

只在输出时做四舍五入。

如果手头有个财务数据非常大，需要使用逗号来分隔才方便阅读，那么下面这个子程

序能提供很多便利：

sub big_money {

my $number = sprintf "%.2f", shift @_;

#

下面的循环中，每次匹配到的合适位置加一个逗号

1 while $number =

~

s/^(-?\d+)(\d\d\d)/$1,$2/;

#

在正确的位置补上美元符号

$number =

~

s/^(-?)/$1\$/;

$number;

}

这个子程序用了一些前面没见过的技巧，但不难推测其含义。子程序的第一行是在对

第一个（也是唯一的）参数进行格式化，让它在小数点之后刚好有两位数字。也就是 ...