我正在试用$*ARGFILES.handles,它似乎以二进制模式打开文件。
我正在编写一个zip-merge程序,它打印每个文件中的一行,直到没有更多的行可读。
#! /usr/bin/env perl6
my @handles = $*ARGFILES.handles;
# say $_.encoding for @handles;
while @handles
{
my $handle = @handles.shift;
say $handle.get;
@handles.push($handle) unless $handle.eof;
}
我像这样调用它: zip-merge person-say3重复repeat2
失败的原因是:在./zip-merge第7行的块中,无法以二进制模式对句柄执行'get‘操作
指定的文件是文本文件(用utf8编码),我得到了不可执行文件和可执行文件(使用perl6代码)的错误消息。
注释掉的行显示我给出的每个文件都是utf8,所以它们不应该是二进制的,
perl6 -v:这是乐天2018.10版,构建于MoarVM 2018.10版之上
是我做错了什么,还是我发现了一个错误?
发布于 2018-12-06 13:05:04
关闭.handles
返回的IO::Handle对象。
my @*ARGS = 'test.p6';
my @handles = $*ARGFILES.handles;
for @handles { say $_ }
# IO::Handle<"test.p6".IO>(closed)
如果你只是想让你的代码正常工作,在赋值给@handles
之后添加下面这行代码。
.open for @handles;
这是因为.handles
的迭代器是用IO::CatHandle.next-handle
编写的,它打开当前句柄并关闭前一个句柄。
问题是,在你有机会对它们做任何工作之前,它们都有机会同时成为当前句柄和前一个句柄。
(也许.next-handle
和/或.handles
需要一个:!close
参数。)
假设你想让它像roundrobin
一样工作,我实际上会写成这样:
# /usr/bin/env perl6
use v6.d;
my @handles = $*ARGFILES.handles;
# a sequence of line sequences
my $line-seqs = @handles.map(*.open.lines);
# Seq.new(
# Seq.new( '# /usr/bin/env perl6', 'use v6.d' ), # first file
# Seq.new( 'foo', 'bar', 'baz' ), # second file
# )
for flat roundrobin $line-seqs {
.say
}
# `roundrobin` without `flat` would give the following result
# ('# /usr/bin/env perl6', 'foo'),
# ('use v6.d', 'bar'),
# ('baz')
如果您对$line-seqs
使用了数组,那么在将值传递给roundrobin
之前,您需要对这些值进行逐条列化(.<>
)。
for flat roundrobin @line-seqs.map(*.<>) {
.say
}
实际上,我个人更有可能写一些类似于这个(长)一行的东西。
$*ARGFILES.handles.eager».open».lines.&roundrobin.flat.map: *.put
发布于 2018-12-06 04:01:10
:bin
是always set in this type of objects。由于您正在处理句柄,因此您应该按照示例中的说明逐行读取,或者重置句柄以使其不处于二进制模式。
https://stackoverflow.com/questions/53639771
复制相似问题