Есть строка 0000111001000000000000 . . . или же бинарные данные в которых эта строка . . . считываю я это так unpack("X20",$bin_data) . . . а нужно получить тупо число в dec 233472
думал может эмо можно как-нить стандартными средствами . . . щя пока реализовал так:
##################################################
sub bin2dec {
my @bin = split(//,"$_[0]");
my $dec = 0;
my $ves_count = 1;
for($i=$#bin;$i >= 0; $i--) {
if($bin[$i] == 1) {
$dec+=$ves_count;
}
$ves_count=$ves_count*2;
}
return $dec;
}