二进制与十进制数之间的相互转换函数

#!/usr/local/bin/perl

$a=125;
$a=sprintf("%b",$a);
print $a."\n";

$b = oct( '0b' . $a );

print $b."\n";

 

运行结果：

bash-3.00$ ./IntToBit.pl
1111101
125