perl – 如何随机抽样文件内容？

我有一个内容文件

abc
def
high
lmn
...
...

文件中有超过200万行.
我想从文件中随机采样行并输出50K行.有关如何解决这个问题的任何想法？我正在考虑Perl及其rand函数(或者一个方便的shell命令会很整洁).

相关(可能重复)问题：

> Randomly Pick Lines From a File Without Slurping It With Unix
> How can I get exactly n random lines from a file with Perl?

解决方法

假设您基本上想要输出大约2.5％的所有行,这将会：

print if 0.025 > rand while <$input>;