如何在Perl6中逐行读取gz文件

Question

我试图在Perl6中逐行读取一个巨大的gz文件。

我正在尝试做这样的事情

my $file = 'huge_file.gz';
for $file.IO.lines -> $line {
    say $line;
}

但是这会给出一个错误，我有一个格式不正确的UTF-8。我看不到如何从帮助页面读取gzip材料https://docs.perl6.org/language/unicode#UTF8-C8或https://docs.perl6.org/language/io

我想完成和在Perl5中一样的事情:http://blog-en . open alfa . com/how-to-read-and-write-compressed-files-in-perl

如何在 Perl6 中逐行读取 gz 文件？

谢谢

Answer 1

如果您正在寻找快速解决方案，您可以从gzip进程的stdout管道中读取以下行：

my $proc = run :out, "gzip", "--to-stdout", "--decompress", "MyFile.gz"

for $proc.out.lines -> $line {
    say $line;
}

$proc.out.close;

Answer 2

在Archive::Libarchive模块中使用read-file-content方法，但我不知道该方法是否一次将所有行读入内存：

use Archive::Libarchive; 
use Archive::Libarchive::Constants;

my $a = Archive::Libarchive.new: operation => LibarchiveRead, file => 'test.tar.gz';
my Archive::Libarchive::Entry $e .= new;

my $log = '';
while $a.next-header($e) {
    $log = get-log($a,$e) if $e.pathname.ends-with('.txt');
}

sub get-log($a, $e) {
    return $a.read-file-content($e).decode('UTF8-C8');
}

Answer 3

为此，我建议使用模块< code>Compress::Zlib。你可以在github上找到自述文件和代码，用< code > zef install Compress::Zlib 安装。

此示例取自标题为“wrap”的测试文件 3：

use Test;
use Compress::Zlib;

gzspurt("t/compressed.gz", "this\nis\na\ntest");

my $wrap = zwrap(open("t/compressed.gz"), :gzip);
is $wrap.get, "this\n", 'first line roundtrips';
is $wrap.get, "is\n", 'second line roundtrips';
is $wrap.get, "a\n", 'third line roundtrips';
is $wrap.get, "test", 'fourth line roundtrips';

这可能是得到你想要的最简单的方法。