标签: perl random shuffle
所以我有一个文件。让我们说它看起来像这样(它实际上更长):
1234 2134 3124 4123
在该文件中改变行的最佳方法是什么?
答案 0 :(得分:25)
#!/usr/bin/env perl use strict; use warnings; use List::Util qw/shuffle/; my @arr = shuffle <>; print @arr;
用法:
./script file.txt