，也可以写入。参数index就象数组下标一样，提出访问哪一块，0为第一块，依次类推，
要注意的是访问次序是从右到左的，即第一块在最右边。参数bits指定每块中的位数，可
以为1,2,4,8,16或32。
例子
#!/usr/local/bin/perl
$vector = pack ("B*", "11010011");
$val1 = vec ($vector, 0, 4);
$val2 = vec ($vector, 1, 4);
print ("high-to-low order values: $val1 and $val2n");
$vector = pack ("b*", "11010011");
$val1 = vec ($vector, 0, 4);
$val2 = vec ($vector, 1, 4);
print ("low-to-high order values: $val1 and $val2n");
结果 high-to-low order values: 3 and 13
low-to-high order values: 11 and 12
函数名 defined
调用语法 retval = defined (expr);
解说 判断一个变量、数组或数组的一个元素是否已经被赋值。expr为变量名、数组名或一
个数组元素。
如果已定义，返回真，否则返回假。
函数名 undef
调用语法 retval = undef (expr);
解说 取消变量、数组或数组元素甚至子程序的定义，回收其空间。返回值始终为未定义值
，此值与空串等效。
五、数组和列表函数
函数名 grep
调用语法 @foundlist = grep (pattern, @searchlist);
解说 与同名的UNIX查找工具类似，grep函数在列表中抽取与指定模式匹配的元素，参数p
attern为欲查找的模式，返回值是匹配元素的列表。
例子 @list = ("This", "is", "a", "test");
@foundlist = grep(/^[tT]/, @list);
结果 @foundlist = ("This", "test");
函数名 splice
调用语法 @retval = splice (@array, slipelements, length, @newlist);
解说 拼接函数可以向列表（数组）中间插入元素、删除子列表或替换子列表。参数ski
pelements是拼接前跳过的元素数目，length是被替换的元素数，newlist是将要拼接进来
的列表。当newlist的长度大于length时，后面的元素自动后移，反之则向前缩进。因此，
当length=0时，就相当于向列表中插入元素，而形如语句
splice (@array, -1, 0, "Hello");
则向数组末尾添加元素。而当newlist为空时就相当于删除子列表，这时，如果length为空
，就从第skipelements个元素后全部删除，而删除最后一个元素则为：splice (@array,
-1);这种情况下，返回值为被删去的元素列表。
函数名 shift
调用语法 element = shift (@arrayvar);
解说 删去数组第一个元素，剩下元素前移，返回被删去的元素。不加参数时，缺省地对@
ARGV进行操作。
函数名 unshift
调用语法 count = unshift (@arrayver, elements);
解说 作用与shift相反，在数组arrayvar开头增加一个或多个元素，返回值为结果(列表)
的长度。等价于splice (@array, 0, 0, elements);
函数名 push
调用语法 push (@arrayvar, elements);
