重複のない乱数リストをPerlワンライナーで生成する(モジュール未使用) 2012-03-29-1 [Programming] 重複のない乱数リストを 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)