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:38,syncfile.c:119和syncfile.c:91,显示使用分隔符字符串的最后一个字符而不是整个字符串)。
作为一种快速的解决方法(但请注意,这会将整个文件读入内存),请使用
$fname.IO.slurp.split("\n\n")
代替$infile.lines()
。
您还应该提交错误报告或在#perl6
Freenode上询问这是否是已知问题。
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句