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