在Perl6中逐行读取文件，如何按照习惯用法进行？

Question

我在Perl6中有一个基本的脚本，它的运行速度非常慢，比确切的perl5翻译慢30倍。

CONTROL {
    when CX::Warn {
        note $_;
        exit 1;
    }
}
use fatal;
role KeyRequired {
    method AT-KEY (\key) {
        die "Key {key} not found" unless self.EXISTS-KEY(key);
        nextsame;
    }
}

for dir(test => /^nucleotide_\d**2_\d**2..3\.tsv$/) -> $tsv {
    say $tsv;
    my $qqman = $tsv.subst(/\.tsv$/, '.qqman.tsv');
    my $out = open $qqman, :w;
    put "\t$qqman";
    my UInt $line-no = 0;
    for $tsv.lines -> $line {
        if $line-no == 0 {
            $line-no = 1;
            $out.put(['SNP', 'CHR', 'BP', 'P', 'zscore'].join("\t"));
            next
        }
        if $line ~~ /.+X/ {
            next
        }
        $line-no++;
        my @line = $line.split(/\s+/);
        my $chr = @line[0];
        my $nuc = @line[1];
        my $p = @line[3];
        my $zscore = @line[2];
        my $snp = "'rs$line-no'";
        $out.put([$snp, $chr, $nuc, $p, $zscore].join("\t"));
        #$out.put();
    }
    last
}

这在Perl5的< code>while中是惯用的。

这是一个非常简单的脚本，它只更改文件中的文本列。这个Perl6脚本在30分钟内运行。Perl5翻译在1分钟内运行。

我试过用Perl6读处理一个大的文本文件，太慢了。(2014-09)和Perl6:处理非常大的文件的最好方法是什么？但是我在这里看不到任何可以帮助我的东西

我运行的是< code > Rakudo 2018.03版，构建于moar VM 2018.03版之上，实现了Perl 6.c.

我意识到Rakudo还没有成熟到Perl5的水平（我希望还没有），但我如何让它在更合理的时间范围内逐行读取文件？

Answer 1

有很多事情我会改变。

• /。X/可以简化为/。X/或甚至$line.substr（1）。包含（'X'）
• ＜code＞$line。拆分（/\s/）可以简化为$line。words
• $tsv.subst（/\.tsv$/，'.qqman.tsv'）可以简化为$tsv。substr（*-4）~'.qqman。tsv'
• uint而不是uint
• 给定。头{}而不是{last}

given dir(test => /^nucleotide_\d**2_\d**2..3\.tsv$/).head -> $tsv {
    say $tsv;
    my $qqman = $tsv.substr(*-4) ~ '.qqman.tsv';
    my $out = open $qqman, :w;
    put "\t$qqman";

    my uint $line-no = 0;
    for $tsv.lines -> $line {
        FIRST {
            $line-no = 1;
            $out.put(('SNP', 'CHR', 'BP', 'P', 'zscore').join("\t"));
            next
        }
        next if $line.substr(1).contains('X');

        ++$line-no;

        my ($chr,$nuc,$zscore,$p) = $line.words;

        my $snp = "'rs$line-no'";
        $out.put(($snp, $chr, $nuc, $p, $zscore).join("\t"));
        #$out.put();
    }
}