Perl函数pack/unpack，二进制读写

除了格式a、A和@外，重复使用一种格式多次可在其后加个整数，如：

$twoints = pack ("i2", 103, 241);

把同一格式应用于所有的元素则加个*号，如：

$manyints = pack ("i*", 14, 26, 11, 83);

对于a和A而言，其后的整数表示要创建的字符串长度，重复方法如下：

$strings = pack ("a6" x 2, "test1", "test2");

格式@的情况比较特殊，其后必须加个整数，该数表示字符串必须的长度，如果长度不够，则用空字符(null)补足，如：

$output = pack ("a @6 a", "test", "test2");

pack函数最常见的用途是创建可与C程序交互的数据，例如C语言中字符串均以空字符(null)结尾，创建这样的数据可以这样做：

$Cstring = pack ("ax", $mystring);

下表是一些格式字符与C中数据类型的等价关系：

此语句将最后四个字节看作无符号长整数进行转化。下面看一个对uuencode文件解码的例子：

1 : #!/usr/local/bin/perl

2 :

3 : open (CODEDFILE, "/u/janedoe/codefile") ||

4 : die ("Can't open input file");

5 : open (OUTFILE, ">outfile") ||

6 : die ("Can't open output file");

7 : while ($line = <CODEDFILE>) {

8 : $decoded = unpack("u", $line);

9 : print OUTFILE ($decoded);

10: }

11: close (OUTFILE);

12: close (CODEDFILE);