
(1)求数组的和:不需要一个一个地累加,直接调用 sum 函数
use List::Util qw/sum/;
my @array = (10, 203040);
$sum = sum @array; # 得到 100
(2)求数组的最大、最小值:不需要逐个比较,直接调用 max 和 min 函数
qw/max min/;
-16258);
$max max @array; # 得到 25
$min min # 得到 -1
(3)如果是按照字符串排列的最大、最小值呢?调用 maxstr 和 minstr 函数
qw/maxstr minstr/;
= ("Beijing""Shanghai""Guangzhou""Chengdu""Nanjing");
$maxstr maxstr @array; # 得到 Shanghai
$minstr minstr # 得到 Beijing
还有一个不得不说的秘密:这些函数都是经过 C 优化的,所以执行速度不但不会慢,反而非常快!
总结以上是内存溢出为你收集整理的perl两个模块: List::Util和List::MoreUtils全部内容,希望文章能够帮你解决perl两个模块: List::Util和List::MoreUtils所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)