Perl实现2-9进制转换出现NaN错误 求排查及替代方案

我来帮你拆解下代码里的问题，以及提供几种更可靠的实现方式。

首先，你提到运行结果出现NaN，核心问题确实出在$decimal = ($decimal / $val2);这句上：

问题根源 #

Perl里的/是浮点数除法，哪怕被除数和除数都是整数，结果也会是浮点数（比如5/2得到2.5而非2）。这会带来两个致命问题：

• 循环无法终止：浮点数会无限趋近于0但永远不会等于0，while($decimal > 0)的条件会一直成立，最终可能因为浮点数精度溢出出现NaN。
• 余数计算错误：当$decimal是浮点数时，$decimal % $val2得到的是小数余数（比如2.5%2得到0.5），这完全不符合进制转换的逻辑（余数必须是0到$val2-1的整数）。

你原本的余数拼接思路是对的，但因为用了浮点数除法，整个流程跑偏了。

修复你的代码 #

只需要把浮点数除法改成整数除法即可，有两种方式：

1. 用int()取整：

#!/usr/bin/perl
use strict;
use warnings;
sub Base {
    my ($val1, $val2) = @_; # 简化变量赋值写法
    my $ans = 0;
    my $i = 1;
    my $decimal = $val1;
    while($decimal > 0) {
        my $remainder = $decimal % $val2;
        $ans = $ans + ($remainder * $i);
        $decimal = int($decimal / $val2); # 改成整数除法
        $i = $i * 10;
    }
    return $ans;
}

# 测试示例
print Base(10, 2); # 输出1010，正确的二进制表示

2. 使用use integer;强制整数运算：
   在函数开头加上use integer;，这样/会自动变成整数除法：

sub Base {
    use integer;
    my ($val1, $val2) = @_;
    my $ans = 0;
    my $i = 1;
    my $decimal = $val1;
    while($decimal > 0) {
        my $remainder = $decimal % $val2;
        $ans = $ans + ($remainder * $i);
        $decimal = $decimal / $val2; # 现在是整数除法
        $i = $i * 10;
    }
    return $ans;
}

其他更直观的实现方式 #

除了你的拼接思路，还有两种更常用的进制转换写法：

1. 递归实现

代码更简洁，逻辑清晰：

sub decimal_to_base {
    my ($num, $base) = @_;
    return '0' if $num == 0; # 处理0的特殊情况
    return decimal_to_base(int($num / $base), $base) . ($num % $base);
}

# 测试
print decimal_to_base(10, 3); # 输出101，正确的3进制表示

2. 收集余数后反转

这种方式更易理解，适合新手：

sub decimal_to_base {
    my ($num, $base) = @_;
    return '0' if $num == 0;
    my @digits;
    while ($num > 0) {
        push @digits, $num % $base; # 收集每次的余数
        $num = int($num / $base); # 整数除法更新数值
    }
    return join '', reverse @digits; # 反转余数得到正确顺序
}

# 测试
print decimal_to_base(15, 9); # 输出16，正确的9进制表示

内容的提问来源于stack exchange，提问作者Sophia