固定字段宽度数字输出perl

发布时间：2020-12-16 06:21:05 所属栏目：大数据来源：网络整理

导读：我有一个介于0.001和1000之间的随机数,我需要perl以5个字符的固定列宽打印它.也就是说,如果它太长,它应该是圆形的,如果它太短,它应该用空格填充. 我在网上找到的所有内容都建议使用sprintf,但如果数字太长,sprintf会忽略字段宽度. 有没有办法让perl这样做？

我有一个介于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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!