Linux伊甸园论坛 » PHP,PERL,Python » 一个二进制正整数转为十进制正整数的脚本。

001 发表于 2004-2-4 22:28

一个二进制正整数转为十进制正整数的脚本。

#!/usr/bin/perl
#author:devel
print "input a 2 format number :\n";
chomp($a=<STDIN> );
if ( $a >=10) {
while ( $a >= 10)
{
$A=&yu ($a);
$result += 2**$A;
$a -=10**$A;
}
$result += $a % 10 ;
print "$result\n";
}
else {
print "$a\n";
}
sub yu { #这个子函数的作用是计算出有多少位的十进制正整数。
$k=$a,$i=0;
while ( $k >= 10 )
{
$e= $k % 10;
exit if ( $k !~ /[01]/ );
$k -= $e;
$k/=10;
++$i;
}
exit if ($k !~ /[01]/ ); #加了这里
return "$i"; #返回值就是位数了。
}

__________________

ynwll 发表于 2004-2-6 18:54

有谁能把它变成C++,只用最简单的结构呀

dearvoid 发表于 2004-3-2 13:01

## 有现成的 module 可用:
$ perl -e 'use Math::BigInt; $x = Math::BigInt->new("0b1111"); print $x, "\n";'

查看完整版本: 一个二进制正整数转为十进制正整数的脚本。