如何在 Perl 中从 printf 渲染未定义的值？

Question

我正在寻找一种优雅的方式来在通常呈现格式化数字的情况下表示未定义的值。 我将举一个小例子。 对于初学者来说，您当然不能使用这个：

#!/usr/bin/perl
use strict;
use warnings;
for my $s (1, 1.2, undef, 1.3) {
    printf "%5.2f\n", $s;
}

...因为“使用警告”会在第三次迭代中告诉您“使用未初始化的值...”。 所以下一步是这样的：

#!/usr/bin/perl
use strict;
use warnings;
for my $s (1, 1.2, undef, 1.3) {
    printf "%5.2f\n", $s//0;
}

顺便说一句，我喜欢新的 5.10 '//' 运算符吗？ 但这也不是我想要的，因为 $s 的值不为零，它是未定义的。 我真正想要的是这样的：

#!/usr/bin/perl
use strict;
use warnings;
for my $s (1, 1.2, undef, 1.3) {
    printf "%5.2f\n", $s//q();
}

...但我不能，因为这会在第三个值上产生“参数”不是数字...”问题。

这让我想到了我的问题。 我当然可以编写代码来检查我发出的每个数字的定义性，并创建一个完全不同的基于非 %f 的 printf 格式字符串，但是，好吧，...恶心。

有没有人定义了一种处理此类需求的好方法？

Answer 1

我认为好的方法是编写/获取一个通用的漂亮打印机，它可以接受你扔给它的任何东西，然后执行以下操作：

#!/usr/bin/perl
use strict;
use warnings;
use MyPrettyPrinter;
for my $s (1, 1.2, undef, 1.3) {
    print MyPrettyPrinted($s), "\n";
}

Answer 2

我不认为这有什么恶心——这正是你想做的。

use strict;
use warnings;

my($raw) = [1, 1.2, undef, 1.3];
my($formatted) = [map((defined $_ ? sprintf('%5.2f', $_) : "(undef)"), @$raw)];

print '$formatted: <', join('> <', @{$formatted}), qq(>\n);

Answer 3

这并不漂亮，但我只是这样做

defined($s) ? printf "%f.2f\n", $s : print "undef\n";