perl中的pack与unpack

Posted FireC@t @ Perl6

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了perl中的pack与unpack相关的知识,希望对你有一定的参考价值。

这个pack, unpack在 “perl语言编程” 有介绍
看起来很复杂

 

 1 #把一个字符串转为十六进制格式
 2 my $source = abcd;
 3 unpack(H*, $source);
 4 #说明, 这个‘H‘是说明转化为十六进制, 后面的*是任意长度,也就是说, 它转化后多少就多少
 5 #如果单纯写unpack(‘H‘, $source), 只显示转化后的十六进制的第一位字符
 6  
 7 #比如你要把一个十六进制转为ASCII, 可以这样:
 8 # 十六進位的字串
 9 $hex = "61626364";
10  
11 # 转ASCII
12 $bin = pack(H*, $hex);
13 print "$bin\n";
14  
15  
16 #这个pack与unpack除了能转化进制, 也能提取数据, 比如, 有如下字符串:
17 my $data = 1234567890aABCDE,FG;
18 #我们要提标1234567890与ABCDE FG, 可以这样:
19 my($one, $two, $three) = unpack(A10xA5xa2, $data)
20 #这里的一个字符,就用一个A表示。
21 有多少个字符, 就在A后加一个数字,比如ABC, 是三个字符, 就表示:A3 
22 #比如上面的1234567890有十个字符, 就表示A10
23 而那个小写a, 我们不要, 就用x表示, 这个x表示跳过, 在pack中代表着null
24 #当然, 如果你要提取所有字节, 可以在后面加*, 比如A*

转自: https://blog.gtwang.org/perl/perl-pack-unpack-tutorial/

 

以上是关于perl中的pack与unpack的主要内容,如果未能解决你的问题,请参考以下文章

如何在 Perl 中使用“打包/解包”?

Qt 等效于 Perl 打包/解包

@,x,X 指令如何与 Ruby pack()/unpack() 方法一起使用?

perl6 中将 字符串 转成十六进制

openGL之API学习(一九二)PACK与UNPACK

关于 unpack() 和 printf() 中的 v 标志的 Perl 问题