配列をランダムに並び替える
List::Utilが使える場合
use List::Util; @ARRAY=List::Util::shuffle @ARRAY;
List::Utilが使えない場合
@ARRAY=@{&Shuffle(@ARRAY)};
sub Shuffle{
BEGIN{srand}
my @OUT;
push @OUT,splice @_,rand @_,1 while @_;
return @OUT;
}
検索

コメントありがとうございます。 申し訳ございません。 10年近い前の記事と言うこ…