重複のない乱数リストを Perl で簡単に生成する方法。
以前の方法[2012-01-30-1]とは異なりモジュールは使用しない。
1から1000までの整数をシャッフルする。

perl -le '@a=1..1000;for(1..$#a){
$r=rand($_+1);@a[$_,$r]=@a[$r,$_]};print join"\n",@a'

下記URLの方法を Perl で書いただけ。

- 配列のシャッフル http://ray.sakura.ne.jp/tips/shaffle.html
(via http://b.hatena.ne.jp/sassano/20120329#bookmark-436449)