二进制和十进制的转换？

[libeixian]

？？

[leebx]

sub dec2bin {
my $str=unpack("B32",pack("N",shift));
$str =~ s/^0+(?=\d)//;
return $str;
}

sub bin2dec {
return unpack("N",pack("B32",substr("0"x32.shift,-32)));
}

[libeixian]

谢谢想不到这么快就解决了！