perl - 如何随机采样文件的内容？

Question

我有一个包含内容的文件

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?

Answer 1

假设您基本上想要输出所有行的 2.5%，这将执行以下操作:

print if 0.025 > rand while <$input>;