perl - 如何在 Perl 中以随机顺序打印 STDIN 中的行？

Question

我想做 sort(1) 的倒数: 随机化 的每一行标准输入 至标准输出 在 Perl 中。

Answer 1

我敢打赌，真正的 Perl 黑客会撕毁它，但它仍然存在。

use strict;
use warnings;
use List::Util 'shuffle';

my @lines = ();
my $bufsize = 512;
while(<STDIN>) {
    push @lines, $_;
    if (@lines == $bufsize) {
        print shuffle(@lines);
        undef @lines;
    }
}
print shuffle(@lines);

此解决方案与其他解决方案之间的区别:

不会消耗所有输入然后将其随机化(内存占用)，但会随机化每个 $bufsize 行(与其他选项相比，不是真正随机且慢得像狗)。

使用一个返回新列表的模块，而不是就地编辑 Fisher - Yates 实现。它们是可互换的(除非您必须将打印与随机播放分开)。有关更多信息，请在您的 shell 上键入 perldoc -q rand。