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

Mon manière préférée est:

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

citation de 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.)

comme d'habitude, il y a aussi un excellent module 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 n'importe quelle longueur et vous pouvez faire d'autres choses soignées comme le bit-shifting, etc.

en fait, vous pouvez simplement coller "0b" sur le devant et il est traité comme un nombre binaire.

perl -le 'print 0b101'
5

mais cela ne fonctionne que pour une simple parole.

Vous pouvez utiliser le eval() méthode pour contourner la restriction des mots nus:

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