perl - Perlで配列をシャッフルする最良の方法は何ですか？

Question

だから私はファイルを持っています。このように見えるとしましょう（実際にはもっと長いです）：

1234
2134
3124
4123

そのファイルの行をシャッフルするための最良の方法は何ですか？

Answer 1

#!/usr/bin/env perl

use strict;
use warnings;

use List::Util qw/shuffle/;

my @arr = shuffle <>;

print @arr;

使用法 ：

./script file.txt