Исправлено число строк в столбце

Question

У меня есть случайное число от 0,001 до 1000, и мне нужен perl для печати с фиксированной шириной столбца 5 символов. То есть, если он слишком длинный, он должен быть округлен, и если он слишком короткий, он должен быть дополнен пробелами.

Все, что я нашел в Интернете, предлагая использовать sprintf, но sprintf игнорирует ширину поля, если число слишком велико.

Есть ли способ получить perl для этого?

Что не работает:

my $number = 0.001 + rand(1000); 
my $formattednumber = sprintf("%5f", $number); 
print <<EOF; 
    $formattednumber 

EOF 

Answer 1

Вы должны определить свой sprintf шаблон динамически. Количество десятичных знаков зависит от количества цифр в левой части десятичной точки.

Эта функция сделает это за вас.

use strict; 
use warnings 'all'; 
use feature 'say'; 

sub round_to_col { 
    my ($number, $width) = @_; 

    my $width_int = length int $number; 
    return sprintf(
     sprintf('%%%d.%df', $width_int, $width - 1 - $width_int), 
     $number 
    ); 
} 

my $number = 0.001 + rand(1000); 
say round_to_col($number, 5); 

Выход может быть:

11.18 
430.7 
0.842 

Answer 2

Вы можете использовать pack после sprintf. Это не может быть вычислительно эффективный подход, но он относительно прост в реализации и обслуживании:

my $formattednumber = pack ('A5', sprintf("%5f", $number)); 

Answer 3

Ответ отправленный simbabque не покрывает все случаи, так что это мой улучшенный вариант, только в случае, если кто также нуждается что-то вроде этого:

sub round_to_col { 
    my ($number, $width) = @_; 

    my $width_int = length int $number; 
    my $sprintf; 
    print "round_to_col error: number longer than width" if $width_int > $width; 
    $sprintf = "%d" if $width_int == $width; 
    $sprintf = "% d" if $width_int == $width - 1; 
    $sprintf = sprintf('%%%d.%df', $width_int, $width - 1 - $width_int) 
    if $width_int < $width -1; 
    return sprintf($sprintf , $number); 
}