4

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

#!/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 格式字符串，但是，嗯，...哎呀。

有没有人定义了一种很好的方法来处理这种类型的需求？

4

3 回答 3

3

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

defined($s) ? printf "%f.2f\n", $s : print "undef\n";
于 2009-02-13T18:17:35.587 回答
3

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

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);
于 2009-02-13T18:23:56.773 回答
3

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

#!/usr/bin/perl
use strict;
use warnings;
use MyPrettyPrinter;
for my $s (1, 1.2, undef, 1.3) {
    print MyPrettyPrinted($s), "\n";
}
于 2009-02-13T18:27:45.080 回答