Hexzahl -> Binärzahl

[MrWurf]

hallo Woodfighter,

ok, ist auch eine Variante. Kann mir aber nicht vorstellen, dass ich der erste mit diesem Problem bin und es kein passendes Modul gibt.
Immerhin geht es hier um Perl.

Ich habe inzwischen folgenden schmutzigen Trick gefunden:

sub dec2bin {
    my $str = unpack("B32", pack("N", shift));
    return $str;
}
sub bin2dec {
    return unpack("N", pack("B32", substr("0" x 32 . shift, -32)));
}

(siehe auch perldoc -f pack)

funktioniert nur leider nicht mit mehr als 32 Bit.

Gruß
MrWurf