perl随机打乱数组

perl有一个自带的随机打乱数组的库,使用方法如下:

use List::Util;

@array = List::Util::shuffle @array;

 

举一个例子:

复制代码
#! /usr/bin/perl
use List::Util;

my @a=(1..10);
@a=List::Util::shuffle @a;

foreach my $num(@a){
    print "$num\n";
}
复制代码

 

 

posted on   云中道长  阅读(1035)  评论(0编辑  收藏  举报

导航

< 2012年10月 >
30 1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31 1 2 3
4 5 6 7 8 9 10
点击右上角即可分享
微信分享提示