4.2数组处理函数
Perl提供了对数组进行运算的函数，方便了数组的处理。下面对一些常用的函数进行介绍。
一、push函数
push函数可按照堆栈操作的原则，在数组的尾部加入新的元素，其格式为：
push(@array, $item)
它在数组@array的一个元素后添加新的元素$item，比如
@ array-(1，2，3):
push (@array, 4);
此时数组@array将变为(1，2，3，4)。
二、pop函数
pop函数同push函数相对，它在数组的尾部删除元素，其格式为：
pop(@array)
它将数组@array的一个元素删除，并将删除的元素返回。比如：
@array=(1，2，3)：
$item= pop(@array};
将使得数组@array变为(1，2)，$item的数值为3.
三、unshift函数
上面的push和pop函数都是在数组的尾部进行操作，而unshift函数和shift函数是在
数组的首部进行操作。unshift函数可在数组的开始位置添加新的元素，其格式为：
unshift(@array, $item)
它在数组@array的第个元素前附加新的元素$item，比如：
@array=(1，2，3);
将使得数组 @array变为(O，l，2，3)。
四、shift函数
shift函数同unshift函数的作用相反，它在数组的开始位置删除个元素，其格式为
$item= shift(@ array)；
它将数组@array的个元素删除，并将删除的元素返回给$item，比如：
@array=(1，2，3);
$item= shift( @array)，
将使得@array变为(2，3)，而$item为1。
五、grep函数
grep函数从数组中提取出满足一定条件的元素并将它们返回，其格式为：
@ result= grep (/pattem/, @source):
它在@source列表中抽取与指定模式匹配的元索，参数/pattem/为欲查找的模式，返回值是
匹配元素的列表@result，比如：
@list=(“Learn/ng”,”Perl”,”programming“），
@resuk= grep(/ing/, @list）
将使得结果@result为(”Learning",“programmmg”)，在这里符合模式的数组元素被找了出来。
六、sort函数
sort函数用于给数组的元素排序，其格式为：
@sorted= sort (@list);
它将@list巾的元素按字母次序排序后赋予@sorted数组。
七、reverse函数
reverse函数用于将数组的兀素反序排列，其格式为：
@reverSed: reverse (@list);
它将@list中的元素按字母反序排列后赋予@reversed数组。