1. 用grep函數(shù)
函數(shù)名 grep
調(diào)用語法 @foundlist = grep (pattern, @searchlist);
解說 與同名的UNIX查找工具類似，grep函數(shù)在列表中抽取與指定模式匹配的元素，參數(shù)pattern為欲查找的模式，返回值是匹配元素的列表。
例子 @list = ("This", "is", "a", "test");
@foundlist = grep(/^[tT]/, @list);
結(jié)果 @foundlist = ("This", "test");
2. 用map函數(shù)
函數(shù)名 map
調(diào)用語法 @resultlist = map (expr, @list);
解說 此函數(shù)在Perl5中定義，可以把列表中的各個(gè)元素作為表達(dá)式expr的操作數(shù)進(jìn)行運(yùn)算，其本身不改變，結(jié)果作為返回值。在表達(dá)式expr中，系統(tǒng)變量$_代表各個(gè)元素。
例子
1、@list = (100, 200, 300);
@results = map ($_+1, @list);
2、@results = map (&mysub($_), @list);
結(jié)果 1、(101, 201, 301)
2、無
3. 用splice或者delete
函數(shù)名 splice
調(diào)用語法 @retval = splice (@array, slipelements, length, @newlist);
解說：拼接函數(shù)可以向列表（數(shù)組）中間插入元素、刪除子列表或替換子列表。參數(shù)skipelements是拼接前跳過的元素?cái)?shù)目，length是被替換的元素?cái)?shù)，newlist是將要拼接進(jìn)來的列表。當(dāng)newlist的長(zhǎng)度大于length時(shí)，后面的元素自動(dòng)后移，反之則向前縮進(jìn)。因此，當(dāng)length=0 時(shí)，就相當(dāng)于向列表中插入元素，而形如語句
splice (@array, -1, 0, "Hello");
則向數(shù)組末尾添加元素。而當(dāng)newlist為空時(shí)就相當(dāng)于刪除子列表，這時(shí)，如果length為空，就從第skipelements個(gè)元素后全部刪除，而刪除最后一個(gè)元素則為：splice (@array, -1);這種情況下，返回值為被刪去的元素列表。
兩者都可以按照index直接刪除array或者h(yuǎn)ash的元素。但是delete刪除元素后, index后面的元素并不會(huì)主動(dòng)往前移動(dòng)，該元素刪除后，在array還留有一個(gè)undef的元素，顯然刪除得不夠干凈。
