Perl'de bir diziyi karıştırmanın en iyi yolu nedir?

Question

Yani bir dosyam var. en (aslında artık var) böyle göründüğünü varsayalım:

1234 
2134 
3124 
4123 

bu dosyada satırları karıştırmak için en iyi yolu nedir?

Answer 1

#!/usr/bin/env perl 

use strict; 
use warnings; 

use List::Util qw/shuffle/; 

my @arr = shuffle <>; 

print @arr; 

Kullanımı:

./script file.txt