Perl 中的 pack函数

描述

此函数对LIST中的表达式求值并将其打包为EXPR指定的二进制结构。使用下表中显示的字符指定格式-

每个字符可以可选地跟一个数字,该数字指定要打包的值的类型的重复计数。根据格式,该值是半字节,字符或什至位。 *的值重复*,因为LIST中保留了尽可能多的值。可以使用拆包功能将值拆包。

例如,a5表示需要五个字母。 b32表示期望使用32位。 h8表示期望8个字节(或4个字节)。 P10表示该结构的长度为10个字节。

语法

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

pack EXPR, LIST

返回值

• 此函数使用TEMPLATE返回LIST中数据的压缩版本,以确定如何编码。

下表列出了在TEMPLATE中使用的值。

例

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

#!/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