我要评论1、去除一个数组中的重复元素：
使用grep函数代码片段：
代码:
使用转换hash代码片段：
代码:
2、合并两个array:
3、快速查找最大值，不知道的程序猿们，这样搞：
知道的这样搞：
知道的他们还这样搞：
字符串比较玩弄于掌中。还有sum：
4、列表归并
数字求和，也可以用list::util中的reduce：
与sort类似，reduce也是用code block作为参数，不过运行机制稍微不同。每次迭代，先从参数列表取出前面两个元素，分别设置为别名$a和$b，这样参数列表的长度就会缩短为两个元素。然后reduce把语句块返回的计算结果再压回到参数列表的头部。如此往复，直到最后列表里只剩下一个元素，也就是迭代的计算结果$sum。
好了，可以这样了：
5、判断是否有元素匹配
纯粹用perl实现，找到列表中第一个符合某条件的元素，比找出所有符合条件的要麻烦一些。下面的例子，判断是否有大于1000的元素：
注意：如果@list有一亿个元素，而要找的就是1001？grep仍然还会循环一亿次，当然你可以向下面自己控制下：
还是那句话，不简单~~~list::util有现成的东西：
在list::moreutils模块中，也提供很多的实用函数：
6、一次遍历多个列表
一般我们同时遍历多个业务相关的列表时，往往用数组下标遍历：
看下面这个，你的感觉是？
pairwise只适合两个列表的同步计算，三个后用each_array：
虽然还是有点烦，不过也还好了。
7、数组合并
合并多个数组的操作当然你可以自己写，但终究不如moreutils的mesh方便：
发表评论