Làm cách nào để chuyển đổi chuỗi nhị phân thành một số trong Perl?

Question

Làm cách nào để chuyển đổi chuỗi nhị phân $x_bin="0001001100101" thành giá trị số $x_num=613 trong Perl?

Answer 1

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

Answer 2

cách ưa thích của tôi là:

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

---

Trích dẫn từ 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

Như thường lệ, cũng là một module CPAN xuất sắc nên được đề cập ở đây: Bit::Vector .

Việc chuyển đổi sẽ giống như thế này:

use Bit::Vector; 

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

Các chuỗi nhị phân có thể được gần như bất kỳ chiều dài và bạn có thể làm những thứ gọn gàng khác như bit chuyển vv

Answer 4

Trên thực tế bạn có thể chỉ dính '0b' ở mặt trước và nó được coi là số nhị phân.

perl -le 'print 0b101' 
5 

Nhưng điều này chỉ hoạt động đối với người gác.

Answer 5

Bạn có thể sử dụng phương pháp eval() để làm việc xung quanh những hạn chế trần từ:

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