學習perl的路上怎可落下學習刪除數組元素的方法，為此，武林技術小編給大家把知識點整理了一下，現在給出perl 刪除數組元素的3種方法，如果大家發現文章有錯誤的地方，請多諒解。有什么更好的建議，歡迎在評論區指出。

1. 用grep函數 函數名 grep
調用語法 @foundlist = grep (pattern, @searchlist);
解說 與同名的UNIX查找工具類似，grep函數在列表中抽取與指定模式匹配的元素，參數pattern為欲查找的模式，返回值是匹配元素的列表。
例子 @list = ("This", "is", "a", "test");
@foundlist = grep(/^[tT]/, @list);
結果 @foundlist = ("This", "test");

2. 用map函數

函數名 map
調用語法 @resultlist = map (expr, @list);
解說 此函數在Perl5中定義，可以把列表中的各個元素作為表達式expr的操作數進行運算，其本身不改變，結果作為返回值。在表達式expr中，系統變量$_代表各個元素。
例子
1、@list = (100, 200, 300);
@results = map ($_+1, @list);

2、@results = map (&mysub($_), @list);
結果 1、(101, 201, 301)
2、無

3. 用splice或者delete

函數名 splice
調用語法 @retval = splice (@array, slipelements, length, @newlist);

解說：拼接函數可以向列表（數組）中間插入元素、刪除子列表或替換子列表。參數skipelements是拼接前跳過的元素數目，length是被替換的元素數，newlist是將要拼接進來的列表。當newlist的長度大于length時，后面的元素自動后移，反之則向前縮進。因此，當length=0 時，就相當于向列表中插入元素，而形如語句
splice (@array, -1, 0, "Hello");

則向數組末尾添加元素。而當newlist為空時就相當于刪除子列表，這時，如果length為空，就從第skipelements個元素后全部刪除，而刪除最后一個元素則為：splice (@array, -1);這種情況下，返回值為被刪去的元素列表。

兩者都可以按照index直接刪除array或者hash的元素。但是delete刪除元素后, index后面的元素并不會主動往前移動，該元素刪除后，在array還留有一個undef的元素，顯然刪除得不夠干凈。

以上就是perl 刪除數組元素的3種方法，更多關于perl的內容請繼續關注武林技術頻道。

?

?