论坛 › Perl › perl随机打乱数组

玩龙天子 发表于 2015-12-27 10:14:09

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";
}
　　

查看完整版本: perl随机打乱数组