在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