Как я могу отображать неопределенные значения из printf в Perl?

Я ищу элегантный способ обозначения неопределенных значений в ситуациях, когда обычно отображаются форматированные числа. Я приведу небольшой пример. Для начала вы, конечно, не можете использовать это:

#!/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();
}

... но я не могу, потому что это создает проблему "Аргумент" не является числовым..." для третьего значения.

Это подводит меня к порогу моего вопроса. Я, конечно, могу написать код, который проверяет каждое число, которое я выдаю, на определенность, и это создает совершенно другую строку формата printf, не основанную на %f, но, ну, ... фу.

Кто-нибудь определил хороший способ справиться с этим типом требований?


printf perl undef
person Cary Millsap    schedule 13.02.2009    source источник

Ответы (3)


arrow_upward
3
arrow_downward

Я не думаю, что в этом есть что-то гадкое — это именно то, что вы хотите сделать.

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);
person Joe Casadonte    schedule 13.02.2009

arrow_upward
3
arrow_downward

Это некрасиво, но я бы сделал так

defined($s) ? printf "%f.2f\n", $s : print "undef\n";
person Paul Tomblin    schedule 13.02.2009

arrow_upward
3
arrow_downward

Я думаю, что хороший способ состоит в том, чтобы написать/получить универсальный симпатичный принтер, который берет все, что вы ему бросаете, а затем выполняете:

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