Perlプログラムに関する各種メモ書き

Perlで配列をランダムに並び替える(配列からランダムに抽出)

List::Util を使用する
$out = array('aaa','bbb','ccc','ddd','eee');
eval 'use List::Util qw/shuffle/';
my @out2 = shuffle(@out);

これでランダムに並びかえられるので、スカラー値を1つ抽出したいときは

my $data = $out2[0];

でOKです。


関連エントリー

No.747
08/22 19:55

edit

配列