Pelrで配列をシャッフル
たまに使う配列のシャッフル。
コピペで使えると便利なので。
sub shuffle {
my @list;
push( @list, splice(@_, int(rand(@_))) ) while(@_);
return @list;
}
使い方
my @data = (1,2,3,4,5);
@data = shuffle(@data);
-
前の記事
OpenIDを使う為のPerlモジュールをインストール 2009.12.24
-
次の記事
いつのまにかSafari(OS X?)がword-breakを実装していた件 2010.01.14