我有一个介于0.001和1000之间的随机数,我需要perl以5个字符的固定列宽打印它.也就是说,如果它太长,它应该是圆形的,如果它太短,它应该用空格填充.
我在网上找到的所有内容都建议使用sprintf,但如果数字太长,sprintf会忽略字段宽度.
有没有办法让perl这样做？
什么行不通：
my $number = 0.001 + rand(1000);
my $formattednumber = sprintf("%5f",$number);
print <<EOF;
$formattednumber
EOF
解决方法
您需要动态定义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