Perl刪除數組中元素的多種方法

標籤：工具   hlist   傳回值   跳過   文法   拼接   its   splice   返回   

Perl中的數組元素起始引用序號為0，@array的第一個元素為$array[0],依次遞增，最後一個元素為$array[-1]或者$#array。如果要刪除一個數組中已有的元素，可以用以下幾個函數來實現。

 

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

 

2.函數名 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
調用文法 @retval = splice (@array, slipelements, length, @newlist);
解說 拼接函數可以向列表（數組）中間插入元素、刪除子列表或替換子列表。參數       skipelements是拼接前跳過的元素數目，length是被替換的元素數，newlist是        將要拼接進來的列表。當newlist的長度大於length時，後面的元素自動後移，反      之則向前縮排。因此，當length=0 時，就相當於向列表中插入元素；而形如語句
     splice (@array, -1, 0, "Hello")，則向數組末尾添加元素"Hello"。而當         newlist為空白時就相當於刪除子列表，這時，如果length為空白，就從第               skipelements個元素後全部刪除；而刪除最後一個元素則為：splice (@array,        -1)，這種情況下，傳回值為被刪去的元素列表。

例子 @array = qw/a b c d e f g/;

     @newlist = qw/aa bb cc dd/;

     @retval = splice (@array, 3, 2, @newlist); 

結果 @array = qw/a b c aa bb cc dd f g/;

     @retval = qw/d e/;

 

4.函數名 delete

調用文法 delete $array[index]；

解說 從數組中刪除指定索引的元素，index的值是從0開始，當index大於數組長度時，函數delete      對數組沒影響；delete刪除元素後, index後面的元素並不會主動往前移動，該元素刪除     後，在array還留有一個undef的元素，顯然刪除得不夠乾淨。

例子 @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";

 

     [email protected];

     print "5:".$size;

結果 1:apple banana berry orange

     2:apple  berry orange

     3:

     4:apple  berry orange

     5:4

Perl刪除數組中元素的多種方法