8.7 全ての行をランダムに並べ替える
- 全ての行を配列に読み込んで、List::Utilモジュールのshuffle関数を使用してシャッフルする。
use List::Util qw(shuffle); while (<INPUT>) { push(@lines, $_); } @reordered = shuffle(@lines); foreach (@reordered) { print OUTPUT $_; }
use List::Util qw(shuffle); while (<INPUT>) { push(@lines, $_); } @reordered = shuffle(@lines); foreach (@reordered) { print OUTPUT $_; }