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