perl - 保持特定位数的简单 Perl 数学

Question

我正在尝试做一些简单的数学运算，例如

$example = (12 - 4);

但我需要个位数的答案在他们前面有一个 0 所以 $example 应该是

08 not 8    

我知道我可以做类似的事情

if ($example < 10){
    $result = "0$example";
}

但是我必须认为有一种方法可以指定在进行这样的简单数学运算时您希望输出的位数。

Answer 1

我建议在打印到屏幕之前保存这样的格式。然后您可以使用 printf 或 sprintf 以您想要的方式格式化数字。

my $example = 12 - 4;
printf("%02d", $example);

将打印:

08

要将其保存在字符串中以供以后使用 sprintf:

my $example = 12 - 4;
$formatted = sprintf("%02d", $example);

print "$formatted\n";

如果您需要填充小数位，请使用以下方法:

my $example = 12 - 4;
printf("%0.2f", $example);

将打印:

8.00