#!/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";
转载于:https://blog.51cto.com/xiangjishi/1388714