简单的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