求教二进制转换成十进制

wangchick

我现在有一个文件，里面的每一行都是一个从1到32个0或1组成的二进制数，如：
101111100
1001
1010101011010100110011110000
...
我现在要把这些数读出来然后转化成十进制数进行操作

我知道有几个办法：
1. $dec=ord(pack('B8','10110110'));
2. $dec=0b10110110;
3. 将每一个二进制数移位累加成十进制数

可是其中1不适于位数变化的二进制，2没法将0b加一个字串赋给$dec，我想知道除了3还有没有其他简便的方法将一个二进制数转成十进制数了？
谢谢！

flw

my $bin = '1111111';
my $dec = oct( '0b' . $bin );
print $dec;  # got 127

[ 本帖最后由 flw 于 2007-4-5 16:24 编辑 ]

wangchick

怎一个强字了得！

logonly

强！高手出手就是不同凡响。

ttcn_cu

强

flw

强个毛，一堆马屁精，这又不是什么需要高深的知识背景的东西。
你们就不会把常用函数的功能都稍微记忆一下啊？
就算是查书也知道该查什么字嘛。

告诉你们，大家都是出来混饭吃的，混好混坏，完全看你下了多少功夫。
台上一分钟台下十年功，光看见贼吃肉没看到贼挨打；
多少人光鲜的背后是一把一把心酸的泪水啊。

小朋友们无权无势无后台的，想要在这个社会上立足，就学着点儿姐姐！
IT 技术很简单，完全就是屁股上的功夫！多在电脑前面坐一会儿，你的水平就能多增一分。

yybmsrs

汗 就是个函数

ttcn_cu

ttcn_cu

IT技术本来就是会的做，不会的不做，没啥啊
Perl就是要求做事前先找找已有的简便方法。
想到CU上看看就看看，看到好就说声好

不用你那个高级办法的solution又不是没有

1. sub bin2dec{
   
2. #bin 2 dec conversion
   
3. map { our $x +=(2**( our $c++))*($_-48)} reverse unpack "c*",$_[0];
   
4. return $x;
   
5. }

复制代码

大家都是写代码攒钱养家糊口，犯得着这么激动么。

jiannma

以前写过的, 你可以参考下:

cat  bin_dec.pl

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. 
   
6. while (<>){
   
7.   chomp;
   
8.    my $bin = $_;
   
9.     my $int = unpack ("N", pack ("B32", $bin));
   
10.      my $oct = sprintf ("%d", $int);
    
11.     print "$bin\t//$dec\n";
    
12. 
    

复制代码

运行方式为:
xxx@xx ~:  ./bin_dec.pl   bin_file