论坛 › Perl › Perl 数组随机模块

prollerweg 发表于 2018-8-30 13:06:57

Perl 数组随机模块

#!/usr/bin/perl　　
use List::Util 'shuffle';
　　
#随机数组元素
　　my @list = (1..6);
　　sub fisher_yates_shuffle {
　　my $deck = shift;# $deck is a reference to an array
　　return unless @$deck; # must not be empty!
　　my $i = @$deck;
　　while (--$i) {
　　my $j = int rand ($i+1);
　　@$deck[$i,$j] = @$deck[$j,$i];
　　}
　　}
　　
# &fisher_yates_shuffle(\@list);
　　@shuffled = shuffle(@list);#这个和上面注掉的这个函数是一样的意思
　　
print "@shuffled";

查看完整版本: Perl 数组随机模块