Cách tốt nhất để trộn một mảng trong Perl là gì?

Question

Vì vậy, tôi có một tệp. Giả sử nó trông như thế này (nó thực sự dài hơn):

1234 
2134 
3124 
4123 

Cách tốt nhất để xáo trộn các dòng trong tệp đó là gì?

Answer 1

#!/usr/bin/env perl 

use strict; 
use warnings; 

use List::Util qw/shuffle/; 

my @arr = shuffle <>; 

print @arr; 

Cách sử dụng:

./script file.txt