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

chromeバージョン145.0.7632.110(最新)では chrome:/…