如何以最好的方式從Perl中的數組中刪除元素

Question

輸入數組：@Array =（1,2,3,4,3,4,5,6,7,8,9,9,100）

Threashold：5

輸出數組：@array =（5,6,7,8,9,9,100）

Answer 1

有沒有最好的方法，因爲這取決於你喜歡什麼。你想要它短？易於閱讀？易於理解的新人？

儘管在Perl中有多種方法。

最簡潔的可能是使用grep。

@Array = grep { $_ < 5 } @Array; 

如果您認爲這太奇怪了，而維護人員也不會理解它，請編寫您自己的循環。

Answer 2

$切口= 5;

@Array = grep {$ _ < = $ cutOut} @Array;