论坛 › Perl › perl 模块

zhoujun.g 发表于 2015-12-28 08:30:27

perl 模块

!/usr/bin/perl
use List::Util
####找最大、最小、求和等值

qw/max min sum maxstr minstr shuffle/;
@a = ('hello', 'ok', 'china', 'unix');
print max 1..10; #10
print min 1..10; #1
print sum 1..10; #55
print maxstr @a; #unix
print minstr @a; #china
print shuffle 1..10; #radom order
use List::Util qw(first max maxstr min minstr reduce shuffle sum);
　　

查看完整版本: perl 模块