perl - 如何从我的 perl 脚本非阻塞地写入 gzip 文件？

Question

我目前正在编写一个脚本，该脚本将数据库作为输入并按照特定规则从 10 多个表中生成所有有效组合。由于输出非常庞大，我通过 gzip 将其转储到文件中，如下所示:

open( my $OUT, '|-', "gzip > file" );
for ( @data ) {
    my $line = calculate($_);
    print $OUT $line;
}

由于野兽的本性，尽管我最终不得不进行数十万次小写，每行一个。这意味着在每次计算之间，它会等待 gzip 接收数据并完成压缩。至少我是这么认为的，我可能是错的。

如果我是对的，我想知道如何使此打印异步，即它在 gzip 中触发数据，然后继续处理数据。

Answer 1

给IO::Compress::Gzip一试。它接受 filehandle写给。你可以set O_NONBLOCK在那个文件句柄上。