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

前端之家收集整理的这篇文章主要介绍了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>;

猜你在找的Perl相关文章