不行了，还是得问问这个pack到底是怎么回事？

iLRainyday

my $str = pack 'a' x 7, '12', '34', '56';  


为毛结果是"135\0\0\0\0"？？

zhlong8

每一个字母对应后面一个值， 'a' 只对应第一个字符分别是 '1' , '3', '5'，请用 'a*' x 7

iLRainyday

如果换成pack 'a7', '12', '34', '56';则又是另外一个结果。不明白这个x到底起什么作用？大骆驼书里只是说x会插入指定多的null（An x consumes no arguments, but inserts as many nulls as specified）。  

zhlong8

iLRainyday 发表于 2012-12-05 23:19
如果换成pack 'a7', '12', '34', '56';则又是另外一个结果。不明白这个x到底起什么作用？大骆驼书里只是说x ...

a7 一个字母只对应一个项（后面的数字是修饰符同前面的字母是一体的只对应一个项），它只对应后面的 '12' 其余的34 56给丢掉了。'12' 只有2个字节剩余的5个字节用 null 填充

pack 模板中的 x 相当于插入一个 null 不消耗后面的值，比如 pack 'ax2a', 1,2 就相当于 "1\000\0002" 4个字节。

iLRainyday

原来pack 'ax7'和pack 'a'x7还不一样....

zhlong8

这个函数带来一组新的概念所以理解要花些功夫，而且 perlpacktut 文档写没写到点子上。书上讲的更多是用来处理格式化文本，实际上却是处理二进行数据同C传参数用的多。