Perl 格式小数 2 位不四舍五入

在 Perl 中，当使用 printf 或 sprintf 函数打印浮点数时，默认情况下会对小数部分进行四舍五入。然而，在某些情况下，我们希望保留小数部分，但不进行四舍五入。本文将介绍如何在 Perl 中格式化小数，使其保留两位小数，但不进行四舍五入。

使用 int 函数

我们可以使用 Perl 内置的 int 函数来将浮点数截断为整数。配合 printf 函数使用，我们可以实现小数格式化的需求。下面是一个例子：

my $number = 3.14159265358979;
printf("%.2f", int($number * 100) / 100);

这段代码将打印出 3.14。首先，我们将浮点数 $number 乘以 100 并取整，再将结果除以 100 得到 3.14，并使用 printf 函数和 "%.2f" 参数格式化为两位小数。

需要注意的是，int 函数并不对浮点数进行四舍五入，而是直接截断。如果需要四舍五入，请使用 Perl 内置函数 sprintf。

使用 sprintf 函数

我们可以使用 Perl 内置函数 sprintf 来格式化小数。sprintf 函数的第一个参数是格式化字符串，类似于 printf 函数。但是，sprintf 函数返回格式化后的字符串，而不是打印出来。

下面是一个例子：

my $number = 3.14159265358979;
my $result = sprintf("%.2f", $number);

这段代码将 $number 格式化为两位小数并赋值给 $result 变量。$result 的值为 "3.14"。

需要注意的是，sprintf 函数会对小数部分进行四舍五入。如果需要保留小数部分但不进行四舍五入，请使用 int 函数。