，则用空字符(null)补足，如：
$output = pack ("a @6 a", "test", "test2");
pack函数最常见的用途是创建可与C程序交互的数据，例如C语言中字符串均以空字符(n
ull)结尾，创建这样的数据可以这样做：
$Cstring = pack ("ax", $mystring);
下表是一些格式字符与C中数据类型的等价关系：
字符 等价C数据类型
C char
d double
f float
i int
I unsigned int (or unsigned)
l long
L unsigned long
s short
S unsigned short
完整的格式字符见下表。
格式字符 描述
a 用空字符(null)补足的字符串
A 用空格补足的字符串
b 位串，低位在前
B 位串，高位在前
c 带符号字符（通常-128~127）
C 无符号字符（通常8位）
d 双精度浮点数
f 单精度浮点数
h 十六进制数串，低位在前
H 十六进制数串，高位在前
i 带符号整数
I 无符号整数
l 带符号长整数
L 无符号长整数
n 网络序短整数
N 网络序长整数
p 字符串指针
s 带符号短整数
S 无符号短整数
u 转化成uuencode格式
v VAX序短整数
V VAX序长整数
x 一个空字节
X 回退一个字节
@ 以空字节(null)填充
函数名 unpack
调用语法 @list = unpack (packformat, formatstr);
解说 unpack与pack功能相反，将以机器格式存贮的值转化成Perl中值的列表。其格式字符
与pack基本相同（即上表），不同的有：A格式将机器格式字符串转化为Perl字符串并去掉
尾部所有空格或空字符；x为跳过一个字节；@为跳过一些字节到指定的位置，如@4为跳过
4个字节。下面看一个@和X合同的例子： $longrightint = unpack ("@* X4 L", $pac
kstring);
此语句将最后四个字节看作无符号长整数进行转化。下面看一个对uuencode文件解码的
例子：
#!/usr/local/bin/perl
open (CODEDFILE, "/u/janedoe/codefile") ||
die ("Can't open input file");
open (OUTFILE, ">outfile") ||
die ("Can't open output file");
while ($line = <CODEDFILE>) {
$decoded = unpack("u", $line);
print OUTFILE ($decoded);
}
close (OUTFILE);
close (CODEDFILE);
当将pack和unpack用于uuencode时，要记住，虽然它们与UNIX中的uuencode、uudecode
工具算法相同，但并不提供首行和末行，如果想用uudecode对由pack的输出创建的文件进
行解码，必须也把首行和末行输出（详见UNIX中uuencode帮助）。
函数名 vec
调用语法 retval = vec (vector, index, bits);
解说 顾名思义，vec即矢量(vector)函数，它把简单变量vector的值看作多块(维)数据，
每块含一定数目的位，合起来即一个矢量数据。每次的调用访问其中一块数据，可以读取
