配列をランダムに並び替える
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;
}
検索

なぜか質問を投稿すると反映されない。。 何かしら問題があってはじかれている??