为何我的Perl代码无法用until循环从0.1迭代到0.9？

你遇到的问题根源是十进制浮点数无法在二进制浮点数中精确表示。

十进制的0.1转换成二进制是无限循环的小数（类似十进制里的1/3），计算机只能用有限位存储这个近似值。每次执行$float += 0.1时，误差会不断累积：

• 当循环条件是until ($float == 1)时，$float永远不会精确等于1（累加后的实际值会是类似0.9999999999999999、1.0999999999999999这类近似值），所以循环永远不会终止，会持续输出超过1的数值。
• 当条件改为until ($float == 0.2)时，第一次累加后的$float实际是一个略大于或略小于0.2的近似值，和0.2用==比较不相等，所以循环只执行一次就退出。

方案1：用整数模拟小数运算（推荐） #

把数值放大为整数，避免浮点数精度问题，输出时再转换回小数：

#!/usr/bin/env perl

use strict;
use warnings;

my $int = 1;
until ($int == 10) {
    print($int / 10, "\n");
    $int += 1;
    sleep 1;
}

这段代码会从0.1输出到0.9，完全符合你的预期。

方案2：使用范围判断替代精确相等 #

如果必须使用浮点数，可以通过判断数值是否接近目标值（设置一个极小的误差范围，比如1e-9）来终止循环：

#!/usr/bin/env perl

use strict;
use warnings;

my $float = 0.1;
until ($float >= 1 - 1e-9) { # 允许极小的误差
    print("$float\n");
    $float += 0.1;
    sleep 1;
}

方案3：使用高精度小数模块 #

Perl的Math::BigFloat模块可以精确处理十进制小数，适合复杂的小数运算场景：

#!/usr/bin/env perl

use strict;
use warnings;
use Math::BigFloat;

my $float = Math::BigFloat->new('0.1');
until ($float == 1) {
    print("$float\n");
    $float += Math::BigFloat->new('0.1');
    sleep 1;
}

内容的提问来源于stack exchange，提问作者Евгений Кашинский