Comment convertir une chaîne binaire en nombre en Perl?

Question

Comment puis-je convertir la chaîne binaire $x_bin="0001001100101" en sa valeur numérique $x_num=613 en Perl?

Answer 1

sub bin2dec { 
    return unpack("N", pack("B32", substr("0" x 32 . shift, -32))); 
} 

Answer 2

Ma façon préférée est:

$x_num = oct("0b" . $x_bin); 

---

Je cite man perlfunc:

 
    oct EXPR 
    oct  Interprets EXPR as an octal string and returns the 
      corresponding value. (If EXPR happens to start 
      off with "0x", interprets it as a hex string. If 
      EXPR starts off with "0b", it is interpreted as a 
      binary string. Leading whitespace is ignored in 
      all three cases.) 

Answer 3

Comme d'habitude, il y a aussi un excellent module de CPAN qui devrait être mentionné ici: Bit::Vector .

La transformation ressemblerait à quelque chose comme ceci:

use Bit::Vector; 

my $v = Bit::Vector->new_Bin(32, '0001001100101'); 
print "hex: ", $v->to_Hex(), "\n"; 
print "dec: ", $v->to_Dec(), "\n"; 

Les chaînes binaires peuvent être de presque toute la longueur et vous pouvez faire d'autres choses comme peu propre décalage, etc.

Answer 4

En fait, vous pouvez juste coller '0b' sur le devant et il est traité comme un nombre binaire.

perl -le 'print 0b101' 
5 

Mais cela ne fonctionne que pour un seul mot.

Answer 5

Vous pouvez utiliser la méthode eval() pour contourner la restriction simple mot:

eval "\$num=0b$str;";