Perl pack 函数

• 

  描述

  pack 此函数对LIST中的表达式求值并将其打包为EXPR指定的二进制结构。使用下表中显示的字符指定格式-每个字符可以可选地跟一个数字，该数字指定要打包的值的类型的重复计数。根据格式，该值是半字节，字符或什至位。*的值重复*，因为LIST中保留了尽可能多的值。可以使用解包功能将值解包。例如，a5表示需要五个字母。b32表示期望使用32位。h8表示期望8个字节（或4个字节）。P10表示该结构的长度为10个字节。
• 

  句法

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

  
  pack EXPR, LIST
  

• 

  返回值

  此函数使用TEMPLATE返回LIST中数据的压缩版本，以确定如何编码。下表列出了在TEMPLATE中使用的值。

  字符	描述
  a	用空字符填充的ASCII字符串
  A	ASCII字符串用空格填充
  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	表示“返回一个字节”
  @	用空值填充（ASCII 0）

• 

  示例

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

   
  $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