perlで配列の順番をばらばらにする

意外となかったようでしたので

test.pl

#!/usr/bin/perl
use strict;

my @list=split(/,/,"1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20");

srand;
my %temp;
foreach(@list) {
    $temp{$_}=rand;
}

my @newlist;

foreach(keys %temp) {
    push(@newlist, $_);
}

foreach(@newlist) {
    print "$_\n";
}

一度ハッシュのキーに入れてしまうと、ばらばらになるんですよね。

せっかく乱数を使ってるので

test.pl

#!/usr/bin/perl
use strict;

my @list=split(/,/,"1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20");

srand;
my %temp;
foreach(@list) {
    $temp{$_}=rand*10000;
}

my @newlist;

foreach(sort { $temp{$a} <=> $temp{$b} }keys %temp) {
    push(@newlist, $_);
}

foreach(@newlist) {
    print "$_\n";
}

こっちのがばらばらの精度が高いでしょう。