Программирование > Perl

Bin 2 Dec

<< < (2/2)

DartSidius:
Есть строка 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;

}

arto:
вы путаете число и его внешнее представление

DartSidius:
ок :)

тему мона закрывать

Навигация

[0] Главная страница сообщений

[*] Предыдущая страница