所以我有一个文件。假设它看起来像这样(实际上更长):
1234
2134
3124
4123
打乱该文件中的行的最佳方法是什么?
最佳答案
#!/usr/bin/env perl
use strict;
use warnings;
use List::Util qw/shuffle/;
my @arr = shuffle <>;
print @arr;
用法 :
./script file.txt
关于perl - 在 Perl 中打乱数组的最佳方法是什么?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13416337/