मैं एक बाइनरी स्ट्रिंग को पर्ल में किसी संख्या में कैसे परिवर्तित करूं?

Question

मैं बार्लरी स्ट्रिंग $x_bin="0001001100101" को अपने अंकीय मूल्य $x_num=613 पर पर्ल में कैसे परिवर्तित कर सकता हूं?

Answer 1

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

Answer 2

मेरे पसंदीदा तरीका है:

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

---

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

हमेशा की तरह, वहाँ भी एक उत्कृष्ट CPAN मॉड्यूल है कि यहाँ उल्लेख किया जाना चाहिए है है: Bit::Vector ।

परिवर्तन कुछ इस तरह दिखेगा:

use Bit::Vector; 

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

द्विआधारी तार लगभग किसी भी लम्बाई के हो सकता है और आप थोड़ा-स्थानांतरण जैसे अन्य स्वच्छ सामान, आदि

Answer 4

वास्तव में क्या कर सकते हैं आप बस कर सकते हैं सामने '0 बी' छड़ी और इसे बाइनरी संख्या के रूप में माना जाता है।

perl -le 'print 0b101' 
5 

लेकिन यह केवल एक शब्दकोष के लिए काम करता है।

Answer 5

आप नंगे शब्द प्रतिबंध के आसपास काम करने के लिए eval() विधि का उपयोग कर सकते हैं:

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