Perl可以检测浮点数是否已被隐式舍入?
当我使用代码时:
(sub { use strict; use warnings; print 0.49999999999999994; })->(); Perl输出“0.5”. 当我从数字中删除一个“9”时: (sub { use strict; use warnings; print 0.4999999999999994; })->(); 它打印0.499999999999999. 只有当我删除另外9个时,它才能准确地存储数字. 我知道浮点数是一个没有人想要处理的蠕虫,但我很好奇Perl中有一种方法可以“陷阱”这个隐式转换并死掉,这样我就可以使用eval来捕获这个死了用户知道Perl以其原生形式支持他们试图传递的号码(因此用户可以传递字符串或对象). 我需要这个的原因是为了避免传递0.49999999999999994被我的函数舍入的情况,但数字转换为0.5,然后舍入为1而不是0.我不知道如何“拦截”这个转换,以便我的函数“知道”它实际上没有得到0.5作为输入,但是用户的输入被截获. 在不知道如何拦截这种转换的情况下,我不能相信“圆”,因为我不知道它是否在我发送它时收到了我的输入,或者是否在修改之前(在编译时或运行时,不确定)输入函数被调用(反过来,函数不知道它正在操作的输入是否是用户想要的输入,并且无法警告用户). 这不是Perl的独特问题,它发生在JavaScript中: (() => { 'use strict'; /* oops: 1 */ console.log(Math.round(0.49999999999999999)) })(); 它发生在Ruby中: (Proc.new { # oops: 1 print (0.49999999999999999.round) }).call() 它发生在PHP中: <?php (call_user_func(function() { /* oops: 1 */ echo round(0.49999999999999999); })); ?> 它甚至发生在C(这是可以发生的,但我的gcc并没有警告我数字没有精确存储(当指定特定的浮点文字时,最好准确存储它们,或者编译器应警告你它决定把它变成另一种形式(例如“你的数字x不能以64位/ 32位浮点形式表示,所以我把它转换为y.”)所以你可以看看是否可以,在这种情况下它是不)): #include <math.h> #include <stdio.h> int main(int argc,char **argv) { /* oops: 1 */ printf("%f.n",round(0.49999999999999999)); return 0; } 摘要: 是否有可能在浮动数字的隐式转换中使Perl显示错误或警告,或者这是Perl5(以及其他语言)此时无法执行的操作(例如,编译器不会超出其支持方式这样的警告/提供一个标志来启用此类警告)? 例如
解决方法
也许使用
BigNum:
$perl -Mbignum -le 'print 0.49999999999999994' 0.49999999999999994 $perl -Mbignum -le 'print 0.49999999999999994+0.1' 0.59999999999999994 $perl -Mbignum -le 'print 0.49999999999999994-0.1' 0.39999999999999994 $perl -Mbignum -le 'print 0.49999999999999994+10.1' 10.59999999999999994 它透明地将Perl浮点和整数的精度扩展到扩展精度. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |