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

发布时间：2020-12-15 21:16:03 所属栏目：大数据来源：网络整理

导读：我想做 sort(1)的逆：在stl中将stdin的每一行随机化为stdout. 解决方法我敢打赌,真正的Perl黑客会把它拆开,但在这里仍然如此. use strict;use warnings;use List::Util 'shuffle';my @lines = ();my $bufsize = 512;while(STDIN) { push @lines,$_; if (@li

我想做 sort(1)的逆：在stl中将stdin的每一行随机化为stdout.

解决方法

我敢打赌,真正的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.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!