你如何在Perl中使用浮点数?

我如何将十进制数(浮点数)四舍五入到最接近的整数?

例如

1.2 = 1 1.7 = 2 

perldoc -q round输出

Perl有一个round()函数吗? 那么ceil()和floor()呢? Trigfunction?

请记住, int()只是截断为0 。 为了舍入到一定数量的数字, sprintf()printf()通常是最简单的路线。

  printf("%.3f", 3.1415926535); # prints 3.142 

POSIX模块(标准Perl分发的一部分)实现了ceil()floor()以及其他一些math和三angular函数。

  use POSIX; $ceil = ceil(3.5); # 4 $floor = floor(3.5); # 3 

在5.000至5.003 perls,在Math::Complex模块中进行三angular测量。 使用5.004时, Math::Trig模块(标准Perl分布的一部分)实现了三angular函数。 它在内部使用Math::Complex模块,一些函数可以从实轴分出到复平面,例如2的反正弦。

财务申请的四舍五入可能会产生严重的影响,所使用的四舍五入方法应该被精确地指定。 在这些情况下,可能不会相信Perl正在使用的任何系统舍入,而是实现您自己需要的舍入函数。

为了明白为什么,注意你在半路点交替方面还有什么问题:

  for ($i = 0; $i < 1.01; $i += 0.05) { printf "%.1f ",$i} 0.0 0.1 0.1 0.2 0.2 0.2 0.3 0.3 0.4 0.4 0.5 0.5 0.6 0.7 0.7 0.8 0.8 0.9 0.9 1.0 1.0 

不要责怪Perl。 这和C一样。IEEE说我们必须这样做。 Perl数字的绝对值是2**31 (在32位机器上)的整数将非常像math整数。 其他号码不能保证。

虽然不同意关于中途标记等的复杂答案,但对于更常见的(也可能是微不足道的)用例:

my $rounded = int($float + 0.5);

UPDATE

如果你的$float可能是负值,下面的变化会产生正确的结果:

my $rounded = int($float + $float/abs($float*2 || 1));

用这个计算-1.4被四舍五入到-1,-1.6到-2,零不会爆炸。

你可以使用像Math :: Round这样的模块:

 use Math::Round; my $rounded = round( $float ); 

或者你可以这样粗暴地做:

 my $rounded = sprintf "%.0f", $float; 

如果您决定使用printf或sprintf,请注意,他们使用Round half to even方法。

 foreach my $i ( 0.5, 1.5, 2.5, 3.5 ) { printf "$i -> %.0f\n", $i; } __END__ 0.5 -> 0 1.5 -> 2 2.5 -> 2 3.5 -> 4 

请参阅perldoc / perlfaq :

请记住, int()只是向0截断。为了舍入到一定数量的数字, sprintf()printf()通常是最简单的路线。

  printf("%.3f",3.1415926535); # prints 3.142 

POSIX模块(标准的Perl发行版的一部分)实现了ceil()floor()以及一些其他的math和三angular函数。

 use POSIX; $ceil = ceil(3.5); # 4 $floor = floor(3.5); # 3 

在5.000至5.003 perls,在Math::Complex模块中进行三angular测量。

使用5.004, Math::Trig模块(标准Perl分配的一部分)>实现三angular函数。

它在内部使用Math::Complex模块,一些函数可以从实轴分出到复平面,例如2的反正弦。

财务申请的四舍五入可能会产生严重的影响,所使用的四舍五入方法应该被精确地指定。 在这些情况下,可能不会相信Perl正在使用的任何系统舍入,而是实现您自己需要的舍入函数。

为了明白为什么,注意你在半路点交替方面还有什么问题:

 for ($i = 0; $i < 1.01; $i += 0.05) { printf "%.1f ",$i } 0.0 0.1 0.1 0.2 0.2 0.2 0.3 0.3 0.4 0.4 0.5 0.5 0.6 0.7 0.7 0.8 0.8 0.9 0.9 1.0 1.0 

不要责怪Perl。 这和C一样。IEEE说我们必须这样做。 Perl数字的绝对值是2 ** 31(在32位机器上)的整数将非常像math整数。 其他号码不能保证。

你不需要任何外部模块。

 $x[0] = 1.2; $x[1] = 1.7; foreach (@x){ print $_.' = '.( ( ($_-int($_))<0.5) ? int($_) : int($_)+1 ); print "\n"; } 

我可能会忽略你的观点,但我认为这是做同样工作的更简洁的方法。

它所做的是遍历元素中的每个正数,按照您提到的格式输出数字和四舍五入的整数。 该代码只能基于小数连接各自的舍入正整数。 int($ _)基本上将数字向下舍入,所以($ -int($ ))捕获小数。 如果小数(根据定义)严格小于0.5,则向下舍入数字。 如果不是,则加1。

负数可能会增加人们需要注意的一些怪癖。

printf风格的方法给了我们正确的数字,但是它们会导致一些奇怪的显示。 我们发现这个方法(在我看来是愚蠢的)是否应该或不应该放入一个符号。 例如,-0.01四舍五入到小数点后一位将返回一个-0.0,而不是仅为0.如果您要执行printf样式方法,并且您知道不需要小数,请使用%d而不是%f (当您需要小数点,这是当显示变得怪异)。

虽然这是正确的和math没什么大不了的,为显示它看起来很奇怪,显示像“-0.0”的东西。

对于int方法,负数可以改变你想要的结果(虽然有一些参数可以使它们是正确的)。

int + 0.5引起真正的问题 – 负数,除非你想这样工作,但我想大多数人不这样做。 -0.9应该可以舍入为-1,而不是0.如果你知道你希望消极的是一个天花板,而不是一个地板,那么你可以做到一行,否则,你可能想要用int方法修改(这显然只适用于取回整数:

 my $var = -9.1; my $tmpRounded = int( abs($var) + 0.5)); my $finalRounded = $var >= 0 ? 0 + $tmpRounded : 0 - $tmpRounded; 

我的解决schemesprintf

 if ($value =~ m/\d\..*5$/){ $format =~ /.*(\d)f$/; if (defined $1){ my $coef = "0." . "0" x $1 . "05"; $value = $value + $coef; } } $value = sprintf( "$format", $value ); 

以下将把正数或负数舍入到给定的小数位:

 sub round () { my ($x, $pow10) = @_; my $a = 10 ** $pow10; return (int($x / $a + (($x < 0) ? -0.5 : 0.5)) * $a); } 

以下是五种不同的总结数值的方法的示例。 首先是一个天真的方式来执行总结(和失败)。 第二次尝试使用sprintf() ,但也失败了。 第三个使用sprintf()成功,而最后两个(第四和第五个)使用floor($value + 0.5)

  use strict; use warnings; use POSIX; my @values = (26.67,62.51,62.51,62.51,68.82,79.39,79.39); my $total1 = 0.00; my $total2 = 0; my $total3 = 0; my $total4 = 0.00; my $total5 = 0; my $value1; my $value2; my $value3; my $value4; my $value5; foreach $value1 (@values) { $value2 = $value1; $value3 = $value1; $value4 = $value1; $value5 = $value1; $total1 += $value1; $total2 += sprintf('%d', $value2 * 100); $value3 = sprintf('%1.2f', $value3); $value3 =~ s/\.//; $total3 += $value3; $total4 += $value4; $total5 += floor(($value5 * 100.0) + 0.5); } $total1 *= 100; $total4 = floor(($total4 * 100.0) + 0.5); print '$total1: '.sprintf('%011d', $total1)."\n"; print '$total2: '.sprintf('%011d', $total2)."\n"; print '$total3: '.sprintf('%011d', $total3)."\n"; print '$total4: '.sprintf('%011d', $total4)."\n"; print '$total5: '.sprintf('%011d', $total5)."\n"; exit(0); #$total1: 00000044179 #$total2: 00000044179 #$total3: 00000044180 #$total4: 00000044180 #$total5: 00000044180 

请注意, floor($value + 0.5)可以用int($value + 0.5)replace,以消除对POSIX的依赖。

如果您只关心从整个浮点数(即12347.9999或54321.0001)中获取一个整数值,则此方法(借用并从上面修改)将执行此操作:

 my $rounded = floor($float + 0.1); 
 cat table | perl -ne '/\d+\s+(\d+)\s+(\S+)/ && print "".**int**(log($1)/log(2))."\t$2\n";'