Итак, у меня есть файл. Допустим, что это выглядит так (это на самом деле дольше):
1234
2134
3124
4123
Каков наилучший способ перетасовать строки в этом файле?
Каков наилучший способ перетасовать массив в Perl?
Ответ 1
#!/usr/bin/env perl
use strict;
use warnings;
use List::Util qw/shuffle/;
my @arr = shuffle <>;
print @arr;
Использование:
./script file.txt