Was ist der beste Weg, um ein Array in Perl zu mischen?

Question

Also ich habe eine Datei. Sagen wir es so aussieht (es ist eigentlich mehr):

1234 
2134 
3124 
4123 

Was ist der beste Weg, um die Zeilen in dieser Datei zu mischen?

Answer 1

#!/usr/bin/env perl 

use strict; 
use warnings; 

use List::Util qw/shuffle/; 

my @arr = shuffle <>; 

print @arr; 

Verbrauch:

./script file.txt