在perl6中,如何在段落模式下读取文件?

7stud

data.txt:

hello world
goodbye mars

goodbye perl6
hello perl5

myprog.py:

my $fname = 'data.txt';
my $infile = open($fname, :r, nl => "\n\n");

for $infile.lines(nl => "\n\n") -> $para {
    say $para;
    say '-' x 10;
}

实际输出:

hello world
----------
goodbye mars
----------

----------
goodbye perl6
----------
back to perl5
----------

所需的输出:

hello world
goodbye mars
-----------
goodbye perl6
back to perl5
-----------

...

$ perl6 -v
This is perl6 version 2015.03-21-gcfa4974 built on MoarVM version 2015.03
克里斯多夫

这似乎是Rakudo / MoarVM中的错误,可以回溯到MoarVM期望使用单个字形代替分隔符而不是任意字符串的情况(cf syncfile.c:38syncfile.c:119syncfile.c:91,显示使用分隔符字符串的最后一个字符而不是整个字符串)。

作为一种快速的解决方法(但请注意,这会将整个文件读入内存),请使用

$fname.IO.slurp.split("\n\n")

代替$infile.lines()

您还应该提交错误报告或在#perl6Freenode上询问这是否是已知问题。

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章