Perl int函数和填充零

Question

1. 我有下面的Perl函数来显示最多两个小数位.当输入值为2.01时,它不起作用,它将输出设为2而不是2.01.我不确定为什么要四舍五入.

我将输出写入文件,而不是printf,但它仍然将output1作为2.

    my $ramount = 2.01;
    $ramount = int($ramount*100)/100;
    printf "output1: $ramount";

2. 如果我有.2,.23,.2345,1,23,23.1和9之类的值,我可以使用什么函数填充零,使其显示0.2,0.23,0.2345,1,23,23.1和9？

Answer 1

我认为这个序列将回答你的问题:

  DB<1> $a=2.01

  DB<2> p $a
2.01
  DB<3> printf "%20.10f\n", $a
        2.0100000000

  DB<4> printf "%20.16f\n", $a
  2.0099999999999998

  DB<5> printf "%20.16f\n", ($a*100)
200.9999999999999716

  DB<6> printf "%20.16f\n", ($a*100)/100
  2.0099999999999998

  DB<7> printf "%20.16f\n", int($a*100)
200.0000000000000000

  DB<8> printf "%20.16f\n", int($a*100)/100
  2.0000000000000000

  DB<9>

基本上(并且已在SO上多次回答),2.01不能完全表示为浮点数.如上所示,最接近的浮点数是2.009999999999999716 ...

至于填充,请尝试

printf "%04d", $number

格式中的前导零告诉printf(或sprintf)左边焊盘为零.