perl中数组函数：delete和grep

一、delete函数
 

1.作用：从数组中删除指定的元素
 2.格式：delete $array[index]
 3.实例：#delete
@fruits=("apple","banana","berry","orange");
print "1:@fruits"."\n";

delete $fruits[1];
print "2:@fruits"."\n";

print "3:$fruits[1]"."\n";

delete $fruits[5];
print "4:@fruits"."\n";

$size=@fruits;
print "5:".$size;

4.结果：
1:apple banana berry orange
2:apple  berry orange
3:
4:apple  berry orange
5:4

5.总结：
(1)index的值是从0开始，当index大于数组长度时，函数delete对数组没影响
(2)元素被删除后，该位置上的值是undefined的

二、 grep函数
 1.作用：按某种模式expr去匹配数组array中的每个元素，匹配成功的元素组成一个新的数组，返回该新数组
 2.格式：grep(expr,array);
 3.实例：
@words=("tomataes","tomorrow","patatoes","phantom","Tommy");
$count=grep(/tom/i,@words);
@items=grep(/tom/i,@words);

print "1.$count\n";
print "2.@items";

4.结果：
1.4
2.tomataes tomorrow phantom Tommy

5.总结：
(1)当返回的新数组赋值给一个标量时，该变量保存了新数组的元素个数
(2)当返回的新数组赋值给一个数组时，该变量保存了新数组的所有元素
(3)i选项忽略大小写

原文见：http://blog.sina.com.cn/s/blog_5d1edf6a0100upih.html