Perl 包函数

描述

该函数计算 LIST 中的表达式并将它们打包到 EXPR 指定的二进制结构中。格式使用下表中所示的字符指定 -

每个字符后面都可以跟着一个数字，该数字指定要打包的值类型的重复计数。根据格式，可以是半字节、字符甚至位。* 值会重复 LIST 中剩余的值。可以使用 unpack 函数对值进行解包。

例如，a5 表示需要五个字母。b32 表示需要 32 位。h8 表示需要 8 个半字节（或 4 个字节）。P10表示该结构体长度为10字节。

句法

以下是该函数的简单语法 -

pack EXPR, LIST

返回值

此函数使用 TEMPLATE 返回 LIST 中数据的打包版本以确定其编码方式。

下面的表格给出了 TEMPLATE 中使用的值。

先生。	特征及描述
1	A 用空字符填充的 ASCII 字符串
2	A 用空格填充的 ASCII 字符串
3	乙位串，最低的在前
4	乙位串，最高的在前
5	C 有符号字符（范围通常为 -128 到 127）
6	C 无符号字符（通常为 8 位）
7	d 双精度浮点数
8	F 单精度浮点数
9	H 十六进制字符串，最低数字在前
10	H 十六进制字符串，最高位在前
11	我有符号整数
12	我无符号整数
13	我有符号长整型
14	L 无符号长整型
15	n 网络顺序的短整数
16	氮网络顺序的长整数
17 号	p 指向字符串的指针
18	s 有符号短整型
19	S 无符号短整型
20	你转换为uuencode格式
21	v VAX（小端）顺序的短整数
22	V VAX 顺序的长整数
23	X 一个空字节
24	X 表示“返回一个字节”
25	@ 用空值填充 (ASCII 0)

例子

以下是显示其基本用法的示例代码 -

#!/usr/bin/perl -w

$bits = pack("c", 65);
# prints A, which is ASCII 65.
print "bits are $bits\n";
$bits = pack( "x" );
# $bits is now a null chracter.
print "bits are $bits\n";
$bits = pack( "sai", 255, "T", 30 );
# creates a seven charcter string on most computers'
print "bits are $bits\n";

@array = unpack( "sai", "$bits" );

#Array now contains three elements: 255, T and 30.
print "Array $array[0]\n";
print "Array $array[1]\n";
print "Array $array[2]\n";

执行上述代码时，会产生以下结果 -

bits are A
bits are 
bits are �T
Array 255
Array T
Array 30

perl_function_references.htm