求教二進(jìn)制轉(zhuǎn)換成十進(jìn)制

wangchick

我現(xiàn)在有一個(gè)文件，里面的每一行都是一個(gè)從1到32個(gè)0或1組成的二進(jìn)制數(shù)，如：
101111100
1001
1010101011010100110011110000
...
我現(xiàn)在要把這些數(shù)讀出來(lái)然后轉(zhuǎn)化成十進(jìn)制數(shù)進(jìn)行操作

我知道有幾個(gè)辦法：
1. $dec=ord(pack('B8','10110110'));
2. $dec=0b10110110;
3. 將每一個(gè)二進(jìn)制數(shù)移位累加成十進(jìn)制數(shù)

可是其中1不適于位數(shù)變化的二進(jìn)制，2沒(méi)法將0b加一個(gè)字串賦給$dec，我想知道除了3還有沒(méi)有其他簡(jiǎn)便的方法將一個(gè)二進(jìn)制數(shù)轉(zhuǎn)成十進(jìn)制數(shù)了？
謝謝！

flw

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

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

wangchick

怎一個(gè)強(qiáng)字了得！

logonly

強(qiáng)！高手出手就是不同凡響。

ttcn_cu

強(qiáng)

flw

強(qiáng)個(gè)毛，一堆馬屁精，這又不是什么需要高深的知識(shí)背景的東西。
你們就不會(huì)把常用函數(shù)的功能都稍微記憶一下啊？
就算是查書也知道該查什么字嘛。

告訴你們，大家都是出來(lái)混飯吃的，混好混壞，完全看你下了多少功夫。
臺(tái)上一分鐘臺(tái)下十年功，光看見(jiàn)賊吃肉沒(méi)看到賊挨打；
多少人光鮮的背后是一把一把心酸的淚水啊。

小朋友們無(wú)權(quán)無(wú)勢(shì)無(wú)后臺(tái)的，想要在這個(gè)社會(huì)上立足，就學(xué)著點(diǎn)兒姐姐！
IT 技術(shù)很簡(jiǎn)單，完全就是屁股上的功夫！多在電腦前面坐一會(huì)兒，你的水平就能多增一分。

yybmsrs

汗 就是個(gè)函數(shù)

ttcn_cu

ttcn_cu

IT技術(shù)本來(lái)就是會(huì)的做，不會(huì)的不做，沒(méi)啥啊
Perl就是要求做事前先找找已有的簡(jiǎn)便方法。
想到CU上看看就看看，看到好就說(shuō)聲好

不用你那個(gè)高級(jí)辦法的solution又不是沒(méi)有

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

復(fù)制代碼

大家都是寫代碼攢錢養(yǎng)家糊口，犯得著這么激動(dòng)么。

jiannma

以前寫過(guò)的, 你可以參考下:

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. 
    

復(fù)制代碼

運(yùn)行方式為:
xxx@xx ~:  ./bin_dec.pl   bin_file