pack/unpack用法

Pack 与unpack使用说明：
8rP7wk&QMIO0资料来源摘自perlpacktut，初学perl的时候，想必大家对於pack与unpack都不是很了解，因此本人撷取perldoc里面的文章，为各位简单说明pack与unpack的使用方法：首先定义一下pack与unpack：pack可视为将一系列的片段的数值打包在一起，可用於对dev档案、socket、memory的读写，因为这些需要一块完整的memory，而且需要事先打包成特定格式；而unpack可以视为将将这些完整的memory切割计算，取得我们所需要各部分的Variable。例子如下：51Testing软件测试网'hogBSv6ePg
print pack(“H2”x10,map{ “3$_” } (0..9);
\?"uF)o4i'CT0得到
1s#L(z8dq/~d[Ja0012345678951Testing软件测试网fZSUL2Bn
因为ASCII中30~39代表数字0-9。所以pack後可以得到ascii编码的0->;9，而我们可以利用unpack将string作逆向操作。51Testing软件测试网D k}:o+AU4E1W
print unpack(“H*”,”0123456789”);51Testing软件测试网s*Zk w.@1fv
得到51Testing软件测试网6AELZ].Z
3031323334353637383951Testing软件测试网p\?9[7n_ q
同样的作法可以用在中文字中，至是你要注意OS的编码格式，UTF-8、GB2312、Big5得到的数值并不会相同。

E2@{M KT0EJ.L*o)c0Pack与unpack也可以用在对於对於固定格式的文件作处理的情形下：51Testing软件测试网IFd_:dF
[Copy to clipboard] [ - ]CODE:51Testing软件测试网+{ Z k*}%r+[/L9}lK E
    Date        |Descrīption                               | Income|Expenditure
X3|\[/b6I?#q(B0    01/24/2001 Ahmed's Camel Emporium                       1147.9951Testing软件测试网m\,q*Qr!H\
    01/28/2001 Flea spray                                   24.9951Testing软件测试网C.Cc/VN a5c.N&u
    01/29/2001 Camel rides to tourists                235.00 51Testing软件测试网Raas;A_ }
看到上面格式，想必大家很多人都用用substr将固定栏位中的字串取出来，或利用有点点复杂的Regular Expression将上面的文件栏位匹配出来，而实际上我们要将上面栏位一个一个匹配出来可以用一行搞定51Testing软件测试网&Farf0h5~
例子：51Testing软件测试网(EC,x0VKW:?0qfz
while(<FF>{51Testing软件测试网4f0I{sBB.x
my($date,$desc,$income,$expend) = unpack(“A10xA27xA7xA*”);51Testing软件测试网*bPTA(s~rXpr
}51Testing软件测试网~\cs~/fz!v
简单说明：A表示ASCII，A10表示10个ASCII character，x表示null byte也等於skip a byte，也就是说我们要跳过一个char（|），然後接着27个ASCII char，然後跳过一个vhar，再接上7个ASCII，在跳过一个char，最後A*表示不管後面char有多少个，我全含括进来。

这样子就可以得到各个栏位相对应的资料，很简单吧！ 不需要什麽太多的技巧，一行搞定。之後将income与expend作加总，得到total_income、total_expend，数值，然後再输出的时候，如果也要格式对称，要怎麽办？大多数人都会用format或sprintf，然後一行一行很辛苦的，将结果输出。其实可以简化成：51Testing软件测试网.}*S0u%p[
$income = sprintf("%.2f", $income); # Get them into51Testing软件测试网l+kj/J|7lBp0R
$expend = sprintf("%.2f", $expend); # "financial" format
C"MXU+O0将$income与$expend先格式化，然後同上例将结果输出：51Testing软件测试网 C*[Qa-wHYA
print pack("A11 A28 A8 A*", $date, "Totals", $income, $expend);
(O!j.D+[H*L0注意：这边多加一个char主要是因为’x’表示的是null byte，所以如果用A7xA27xA7xA*，则输出的字串会连在一起，而多给他一个char，就可以让字串不会都连在一起。
bYnVd0完成程式如下：

B1Q)^^(i;^0[Copy to clipboard] [ - ]CODE:51Testing软件测试网p4EF*M!V5J
#!/usr/bin/perl
|9Z&_1h4Xl{0use POSIX;51Testing软件测试网H/P$h"?)n~r
open(FF,"tt.txt");
Yn$n2h
KZ#G$o0while(<FF>;){
s{gP @ K0  my ($date,$desc,$income,$expend) = unpack("A10xA27xA7xA*",$_);51Testing软件测试网/qI/]7W
f
lW(Jl
     $tot_income += $income;
y4m)?5~j/[2S^ zH{0     $tot_expend += $expend;51Testing软件测试网CaLw_t'XN\a
     $income = sprintf("%.2f", $income);51Testing软件测试网$u|4Ajba
     $expend = sprintf("%12.2f", $expend);
H$\1e[#gE0print pack("A11 A28 A8 A*", $date, "$desc", $income, $expend),"\n";51Testing软件测试网+|+]j8{w
}
7Bt3[CC'`7{YJ0$tot_income = sprintf("%.2f", $tot_income); # Get them into51Testing软件测试网b&Z&O-Pd OZ)U
$tot_expend = sprintf("%12.2f", $tot_expend); # "financial" format51Testing软件测试网T-S1BF,k'N5L{7B
$date = POSIX::strftime("%m/%d/%Y", localtime);
%V#by&K'A;R-xmK0print pack("A11 A28 A8 A*", $date, "Totals", $tot_income, $tot_expend),"\n";51Testing软件测试网
v!Z7p'QFO"x%\
整数的pack：
Jv#?0K{X!P!F#A0对於整数需要注意各个OS所定义的int的长度，与各个OS所用的byte order顺序是little-endian还是big-endian，就是高位元在前还是低位元在前的意思。51Testing软件测试网j` J]0[h&P
例子：51Testing软件测试网Vb2~zVh
my $ps = pack(‘s’,20302);51Testing软件测试网e6I1V%?/SG[
s:a signed short intger，一般都是16bits＝2bytes，如果我们将他print出来（列印这些pack後的字元，实际上是不具任何意义的），会发现他等於NO或ON，然後将$ps在unpack可以得到20302
[hU!?yT&Z0unpack(‘s’,’NO’); ----------------->;2030251Testing软件测试网$BW'R!D}}SEp4Dt;@

注意：如果今天你用”s”，pack一个大於65535的数字，高位元会自动被删除，而得到与你想要的数字不同的结果，这点需要注意。

w/f/z*z|0“l”： signed 32bits integer51Testing软件测试网~fV D7Yo/Q!{ f
“L”：unsigned 32bits integer
lt&F-[_$qQ0“q”：signed 64bits intger
\dncu0“Q”：unsigned 64bits integer
shB*d2cl0“i”：signed integers of “local custom” variety51Testing软件测试网wdQ0y1[-r RT5J+|
“I”：unsigned integers of “local custom” variety
r |%`a8h0这两个”i”与”I”主要与机器的OS定义有关系，其长度等於c中的sizeof(int)，如果要用於perl与其他语言的沟通，最好使用这个编码原则。
*gxt4j%k0IN0对照表：(其中%Config要先use Config;才能使用)
4b4v3x/] I$aL6F*[0[Copy to clipboard] [ - ]CODE:
}Czj.r IF1CXu M0   signed unsigned  byte length in C   byte length in Perl       51Testing软件测试网Gg8Ie%giA(D
     s!     S!      sizeof(short)      $Config{shortsize}51Testing软件测试网4G#Sq1KX|,Bp#N-e
     i!     I!      sizeof(int)        $Config{intsize}
H-`5?y8Op_6oIf0     l!     L!      sizeof(long)&nb

0F~k^@(? L.cR"d`0sp;      $Config{longsize}
GW4`^_#Y(Yu0     q!     Q!      sizeof(longlong)   $Config{longlongsize}  51Testing软件测试网bE'nb,T'o&byY"Hf"s0K
对memory stack作pack：51Testing软件测试网o4}l+KWV
例子如下：memory stack长得像下面这样，接着利用unpack将stack中的各个栏位取出。
1^T7H,W8\051Testing软件测试网zs1QiT9gE$q `
[Copy to clipboard][-]CODE:
j,C#r
w3rG0      +---------+           +----+----+                        +---------+
a Q#[F,f7K0TOS: |   IP      |TOS+4:| FL | FH | FLAGS  TOS+14:|   SI    |
)g1~"j cmV[%b_5V0         +---------+           +----+----+                         +---------+
N/V7R9Q'j-w)v0      |   CS    |                 | AL | AH | AX                    |   DI    |
!uSlS!z0      +---------+              +----+----+                         +---------+51Testing软件测试网S#EpHb VM
                                    | BL | BH | BX                     |   BP    |
6NVE+LEXA0                                    +----+----+                         +---------+51Testing软件测试网5Fg+|mh/b.h
                                    | CL | CH | CX                     |   DS    |51Testing软件测试网$w7nh~Z B
                                    +----+----+                         +---------+
;AcAw"m;T9t` @0                                    | DL | DH | DX                       |   ES    |
E nC%Ue^l0                                    +----+----+                          +---------+  
X;rM%A@*n0[Copy to clipboard][-]CODE:51Testing软件测试网0?sx"j1Z!E2l
my( $ip, $cs, $flags, $ax, $bx, $cd, $dx, $si, $di, $bp, $ds, $es ) = unpack( 'v12', $frame );
oX2`c$KT0‘v’ ：unsigned short in ‘VAX ‘ order
O%Ja[qf b0这是取出横列的IP、CS、FLAGS、AX、BX、CX、DX、SI、DI、BP、DS、ES51Testing软件测试网lFYR O:O,x
[Copy to clipboard][-]CODE:
WJV9_F$O0   my( $fl, $fh, $al, $ah, $bl, $bh, $cl, $ch, $dl, $dh ) = unpack( 'C10', substr( $frame, 4, 10 ) );  51Testing软件测试网0H8S
ng/z
‘C’：unsign character value，用於bytes读取51Testing软件测试网0^y9^f4t^ W){9k"k3`
这样子分两行很麻烦，所以将他们放在一起得到：51Testing软件测试网1E!XkrTz9M
my( $ip, $cs,
]V7hT:c6h0$flags,$fl,$fh,
9q7E)~N,B6A0$ax,$al,$ah, $bx,$bl,$bh, $cx,$cl,$ch, $dx,$dl,$dh,
^;Nk8`)PUO%h0$si, $di, $bp, $ds, $es ) =
P(W'f2^nc"{n o0unpack( 'v2' . ('vXXCC' x 5) . 'v5', $frame );
#M'd,J!fLv^$V7p0‘X’：Backup a byte
x.~{SU(t051Testing软件测试网U7W0^;A3U!~6A-UV,C
网路应用：51Testing软件测试网 R)i7uCq uX _(a
‘n’： An unsigned short in "network" (big-endian) order
#K-s5Ok#y;]*K-Uz0‘N’： An unsigned long in "network" (big-endian) order51Testing软件测试网ICn&dG*^&Z
在作网路连结时，往往需要将长度先送给Server，使其知道後面有多少character要读取，因此如果有一段msg，可以利用下列方式打包：51Testing软件测试网+N?#}6u(B+z'w
my $buf = pack( 'N', length( $msg ) ) . $msg;51Testing软件测试网F ~X2Wn ER
说明：等於「长度」( unsigned long)加上讯息内容，也可简化为：51Testing软件测试网g5J0\I#L;H
my $buf = pack(‘NA*’,length($msg),$msg);51Testing软件测试网] V*Z#} o!q9e!K4[
然後将$buf送至对方server。同样对方可用unpack(‘NA*’,$buf)取得送出的数据。
'R(m8c4fXm8?\}m0Floating Point Numbers：
"]DV_E[2w:W)}N&P0‘f’: float (A single-precision float in the native format)51Testing软件测试网,|
uOT/c
‘d’:double(A double-precision float in the native format)
5T;K|^ [0对於浮点数（float point）可以使用f或d来作pack与unpack动作。
$rc:{@9~/maRN$? Y0奇特的例子：51Testing软件测试网
{0AU/S0D1G F
Bit Strings：
/q?b{]k0String中都是0或1，对其作pack/unpack的转换，需要注意那一系列的0/1，与每八个bit一个字元的顺序性。假设今天有个string等於 ”10001100”可以用下列方式：51Testing软件测试网r%j}4^ KB T}lT
$byte = pack( 'B8', '10001100' ); # start with MSB
#V/gxotB%^$K0$byte = pack( 'b8', '00110001' ); # start with LSB51Testing软件测试网 zM
z.{{(q!`^s!Y
b A bit string (ascending bit order inside each byte, like vec()).（渐增）
2Z)C.V
g?1JB6d0B A bit string (descending bit order inside each byte).（渐减）51Testing软件测试网gYi QV&|
zd
如果要对string中的一部份bits作pack/unpack是不可能的，因为pack会从最旁边开始，然後以8个bits为一组，如果不足八个则补0。51Testing软件测试网y.FN4e gB5cY]

rdZ#EN&@vUm fCh0[Copy to clipboard][-]CODE:51Testing软件测试网5Y$X{sl }s_'si
   +-----------------+-----------------+51Testing软件测试网[t5g;\9}%Q#Kqn#?
   | S Z - A - P - C | - - - - O D I T |51Testing软件测试网?#X!B_*K-bl:r2Y%T
   +-----------------+-----------------+
cf
Jn"f$j
{0    MSB          
3|#z.D2D$y3n$H!ys4T-d0