如何在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

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

defined($s) ? printf "%f.2f\n", $s : print "undef\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

way is to write/get a generic prettyprinter that takes whatever you throw at it and then do: 我认为方法是编写/获取一个通用的prettyprinter，它接受你抛出的任何东西，然后执行：

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