たまに使う配列のシャッフル。
コピペで使えると便利なので。
sub shuffle {
my @list;
push( @list, splice(@_, int(rand(@_))) ) while(@_);
return @list;
}
使い方
my @data = (1,2,3,4,5);
@data = shuffle(@data);
カテゴリー: perl小技 - Trackback Uri
2010
1月8日
参考先にも書いてありますが、List::Util::shuffleを使った方がいいと思います
ありゃ、そうなんですか？
テスト的なスクリプトの時にコピペで使った程度なんですけど、
ガシガシ使うにはモジュール使った方が効率がいいのかなぁ。
標準モジュールですしね。