→ AlanSung:List::Util 裡就有 shuffle 了，如果只是要用 shuffle.. 11/24 17:00
→ jlovet:你確定這沒有打錯嘛,看起來很像不能執行... 11/24 18:21
推 yanganto:你確定有這個 ')' 嗎? 11/24 19:30
※ 編輯: kado0413 來自: 114.32.5.59 (11/24 22:42)
這是google找到的
用來打亂array內的值
不過
sub shuffle (@) {
my @a=\(@_);
my $n;
my $i=@_;
map {
$n = rand($i--);
(${$a[$n]}, $a[$n] = $a[$i])[0];
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^不是很懂這一行
} @_;
}
請perl高手
開導一下
謝謝喔
少打到 以補上
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.109.55.233
※ 編輯: kado0413 來自: 140.109.55.233 (11/24 13:06)