古い記事
ランダムジャンプ
新しい記事
重複のない乱数リストを Perl で簡単に生成する方法。
標準モジュールの List::Util の shuffle 関数を使用すれば良い。

perl -MList::Util=shuffle -le 'print join"\n",shuffle(1..1000)'

実行例:
% perl -MList::Util=shuffle -le 'print join"\n",shuffle(1..1000)'|head
740
993
744
442
182
247
232
951
256
394

参考


- 重複のない乱数リストをお手軽に生成する方法 (EchizenBlog-Zwei)
http://d.hatena.ne.jp/echizen_tm/20120128/1327767479
shufコマンドについて。

- [を] Perl で配列をシャッフル[2006-11-28-2]
List::Util について。

- perlrun - Perl インタプリタの起動方法 【perldoc.jp】
http://perldoc.jp/docs/perl/5.6.1/perlrun.pod
"-M" オプションについて。
小さい組み込みの文法的シュガーとして、 '-Mmodule qw(foo bar)' の代わりに -mmodule=foo,bar または -Mmodule=foo,bar と書くことができます。 これで、インポートするシンボルにクォートを使わなくてもよいようになります。