perl 刪除數組元素的幾種方法小結

來源:互聯網
上載者:User

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的元素,顯然刪除得不夠乾淨。

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.