Perl之List::Util

#!/usr/bin/perl

use List::Util qw/max min sum maxstr minstr shuffle/;

 

利用 List::Util::shuffle创建一个随机排序的数组。

 

sub create_rand_array {

        my ($min, $max)= @_;

my @a = ($min..$max);

@a = List::Util::shuffle @a;

}

 

其他用法：

print max(1..10);      #10 ，最大值

print min(1..10);      #1 ，最小值

print sum(1..10);      #55 ，求和

 

@a = ('hello', 'ok', 'china', 'unix');

print maxstr(@a);      #unix ，字符串比较最大值

print minstr(@a);      #china ，字符串比较最小值