8.7 全ての行をランダムに並べ替える

  • 全ての行を配列に読み込んで、List::Utilモジュールのshuffle関数を使用してシャッフルする。
use List::Util qw(shuffle);

while (<INPUT>) {
  push(@lines, $_);
}
@reordered = shuffle(@lines);
foreach (@reordered) {
  print OUTPUT $_;
}