求教二进制转换成十进制

toniz

呵呵  也难怪老大要发火，perl文档里面写得清清楚楚，而且给出来了N种解决方案。。。。

How do I convert from binary to decimal
     Perl 5.6 lets you write binary numbers directly with the 0b notation:

         $number = 0b10110110;

     Using oct:

         my $input = "10110110";
         $decimal = oct( "0b$input" );

     Using pack and ord:

         $decimal = ord(pack('B8', '10110110'));

     Using pack and unpack for larger strings:

         $int = unpack("N", pack("B32",
             substr("0" x 32 . "11110101011011011111011101111", -32)));
         $dec = sprintf("%d", $int);

         # substr() is used to left pad a 32 character string with zeros.

     Using Bit::Vector:

         $vec = Bit::Vector->new_Bin(32, "11011110101011011011111011101111");
         $dec = $vec->to_Dec();

snriyt

flw是女的？？晕

ttcn_cu

回复 11# toniz


    根本就是小题大做

    IT只可能是你完成工作的一部分
    论坛里无数帖子里都说了，只学会一种语言去做全部的工作是不可行的。
    当然也有很多反驳的观点
    但我个人表示赞同，而且在实际工作中也注意学习各种与工作相关的知识
    这就导致你不可能完全记住这门语言的全部注意点
    反过来，就算全记住里，对实际的贡献又有多少呢？
    却需要花很多本来用于学习其他技能的时间。

    一个Bin转Dec的函数，在1年前刚学Perl的时候当然可能看到过
   现在做了几百个脚本，一次都没用到过，忘记了，很自然的
   Perl 的精髓是 做事前 去查查有没有最好的办法。
   没有必要为了Perl的一种文化去大发雷霆。

   如果你不幸，没有找到很好的代码，写了垃圾
   那也没什么可悲伤的
   现代的程序就是不断的重构
   有新需求，有Bug，重构就是必不可少的
   在重构的过程中，不断提高
   则是一件很享受的事情。
   不愿意重构的Coder，才不是一个好Coder