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);