perl vec()函數

perl vec()函數例子，vec()函數實例代碼 - 使用指定的字符串EXPR作為載體的無符號整數。

語法

vec EXPR, OFFSET, BITS

定義和用法

使用指定的字符串EXPR作為載體的無符號整數。NUMBITS參數是保留位向量中的每個條目的位的數目。這必須是從1到32的冪。請注意，該偏移量是為結束的矢量的標記，它計數回到指定找到開始的比特的數目。向量可以被操縱的邏輯位運算符|，＆和^。

返回值

• 該位字段的值指定的偏移OFFSET。

例子

#!/usr/bin/perl -w
#by www.gitbook.net

$vec = '';
vec($vec,  3, 4) = 1;  # bits 0 to 3
vec($vec,  7, 4) = 10; # bits 4 to 7
vec($vec, 11, 4) = 3;  # bits 8 to 11
vec($vec, 15, 4) = 15; # bits 12 to 15
# As there are 4 bits per number this can
# be decoded by unpack() as a hex number
print("vec() Has a created a string of nybbles,
    in hex: ", unpack("h*", $vec), "\n");

這將產生以下結果：

vec() Has a created a string of nybbles,
    in hex: 0001000a0003000f