Writing /share/Web/wiki/data/cache/b/b43d9bc6a9ea6ee5db08304f86386072.metadata failed

linux:perl:cpan:bit-vector

差别

这里会显示出您选择的修订版和当前版本之间的差别。

到此差别页面的链接

--- linux:perl:cpan:bit-vector [2020/08/06 08:39] – 外部编辑 127.0.0.1
+++ linux:perl:cpan:bit-vector [2023/03/17 10:12] (当前版本) – 外部编辑 127.0.0.1
@@ 行 369: / 行 369: @@
 <code perl>
 #!/usr/bin/perl
 use Bit::Vector;
+## from hex
+$vec = Bit::Vector->new_Hex(32,"cc");
+$hex_str = $vec->to_Hex();
+print "hex_str = $hex_str\n";
+$bin_str = $vec->to_Bin();
+print "bin_str = $bin_str\n";
-$vector = Bit::Vector->new_Hex(12,"cc");
-$bin_str = $vector->to_Bin();
+## from bin
+print "\n";
+$vec = Bit::Vector->new_Bin(32, "11100011");
+$hex_str = $vec->to_Hex();
+print "hex_str = $hex_str\n";
+$bin_str = $vec->to_Bin();
 print "bin_str = $bin_str\n";
-$hex_str = $vector->to_Hex();
+##############
+print "\n";
+$vec = Bit::Vector->new(32);
+$vec->Bit_Copy(0,1);
+$vec->Bit_Copy(4,1);
+$vec->Bit_Copy(5,1);
+$hex_str = $vec->to_Hex();
 print "hex_str = $hex_str\n";
+$bin_str = $vec->to_Bin();
+print "bin_str = $bin_str\n";
 </code>
 运行结果：
 <code>
-bin_str = 000011001100
+hex_str = 000000CC
-hex_str = 0CC
+bin_str = 00000000000000000000000011001100
+hex_str = 000000E3
+bin_str = 00000000000000000000000011100011
+hex_str = 00000031
+bin_str = 00000000000000000000000000110001
 </code>

linux/perl/cpan/bit-vector.1596674398.txt.gz · 最后更改: 2023/03/17 10:12 (外部编辑)