perl - Perl 中 float 到十进制转换的二进制表示

Question

我阅读了 Stack Overflow 问题 How do I convert a binary string to a number in Perl? 关于如何在 Perl 中将二进制整数转换为十进制整数，反之亦然。但是我该如何为 float 做这件事呢？

例如，从 5.375 到 101.011 的转换，反之亦然。

Answer 1

sub number_to_binary_string {
    my $in = shift;
    my $sign = $in < 0 and $in = abs $in;
    my $out = sprintf "%b.", int $in;
    substr $out, 0, 0, '-' if $sign;
    $in -= int $in;
    do {
        if ($in >= .5) {
            $out .= '1';
            $in -= .5;
        }
        else {
            $out .= '0';
        }
        $in *= 2;
    } while $in > 0;
    return $out;
}

sub binary_string_to_number {
    my $in = shift;
    my ($int,$frac) = split /\./, $in;
    my $sign = $int =~ s/^-//;
    my $out = oct "0b$int";
    my $mult = 1;
    for my $digit (split //, $frac) {
        $mult *= .5;
        $out += $mult * $digit;
    }
    $out = -$out if $sign;
    return $out;
}