List::Util shuffle

配列をシャッフルしたいけど、どうするんだっけってよくなるので、
自分のためにメモ。


List::Utilパッケージに shuffleという関数があって
それをリストに対して適用すればいいだけど、

#!/usr/bin/env perl
use strict;
use warnings;

use List::Util qw(shuffle);

my @array = 1..10;

my @shuffled_array = shuffle @array;

print "before ", "@array", "\n";
print "after  ", "@shuffled_array", "\n";

こんな結果になります。

before 1 2 3 4 5 6 7 8 9 10
after  1 7 2 6 5 10 4 3 8 9

List::Utilの存在をなぜかよく忘れてしまうんだよな〜。
ちゃんと覚えないとね。