如何以最佳方式从Perl中的Array中删除少于数字的元素

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

$ cutOut = 5;

@Array = grep {$ _＆lt; = $ cutOut} @Array;