我应该如何处理无法通过lines()读取的Perl 6 $*ARGFILES？

我正在玩lines它从您在命令行上指定的文件中读取行：

for lines() { put $_ }

如果它无法读取它抛出的文件名之一X::AdHoc（有一天也许它会有更好的异常类型，这样我们就可以用.path方法）。好吧，所以抓住这一点：

try {
CATCH { default { put .^name } }
for lines() { put $_ }
}

所以这抓住了X::AdHoc错误但就是这样。这try块在此时完成。它不能.resume并尝试下一个文件：

try {
CATCH { default { put .^name; .resume } }  # Nope
for lines() { put $_ }
}

回到 Perl 5 中，您会收到有关错误文件名的警告，然后程序将继续执行下一操作。

我可以过滤@*ARGS先重建$*ARGFILES如果有一些争论：

$*ARGFILES = IO::CatHandle.new:  
    @*ARGS.grep( { $^a.IO.e and $^a.IO.r } ) if +@*ARGS;

for lines() { put $_ }

虽然它会默默地忽略坏文件，但它仍然有效。我可以处理这个问题，但是自己处理参数列表有点乏味，包括-对于作为文件名的标准输入和不带参数的默认输入：

my $code := { put $_ };

@*ARGS = '-' unless +@*ARGS;
for @*ARGS -> $arg {
    given $arg {
        when '-'     { $code.($_) for $*IN.lines(); next }
        when ! .IO.e { note "$_ does not exist";    next }
        when ! .IO.r { note "$_ is not readable";   next }
        default      { $code.($_) for $arg.IO.lines() }
        }
    }

但这是一项繁重的工作。有没有更简单的方法来处理这个问题？

要警告打开不良并继续，您可以使用如下内容：

$*ARGFILES does role { method next-handle { loop {
    try return self.IO::CatHandle::next-handle;
    warn "WARNING: $!.message"
}}}

.say for lines

Simply 混合角色这使得IO::CatHandle.next-handle方法重试获取下一个句柄。 （您也可以使用but操作员而是混合在副本上）。

如果它无法读取其中一个文件名，则会抛出 X::AdHoc

The X::AdHoc来自.open称呼;有一个有点发霉的公关让这些例外被输入，所以一旦解决了，IO::CatHandle也会抛出类型异常。

无法恢复

是的，您只能从CATCH抓住它的块，但在这种情况下它被困在里面.open调用并被制成Failure，然后由IO::CatHandle.next-handle和它的.exception is re-.thrown.

但是，即使它可以在这里恢复，它也只是恢复到引发异常的路径，而不是使用另一个句柄重新尝试。这没有帮助。 （我研究过使其可恢复，但这增加了模糊性on-switch我不太愿意猜测恢复Exception来自某些地方的必须能够有意义地继续——我们目前不为核心中的任何地方提供这样的保证）。

包括-作为文件名的标准输入

请注意，该特殊含义是用 6.d 语言离开据，直到...为止IO::Handle.open（并且通过扩展IO::CatHandle.new） 去。它可能会得到特殊待遇IO::ArgFiles，但我还没有看到这个提议。

回到 Perl 5 中，您会收到有关错误文件名的警告，然后程序将继续执行下一操作。

在 Perl 6 中，它被实现为通用的IO::CatHandle类型用户可以用于任何东西，而不仅仅是文件参数，因此默认情况下的警告和继续对我来说感觉太宽松了。

IO::ArgFiles可以通过特殊情况来提供这种行为。就我个人而言，我反对到处使用特殊的外壳，我认为这是 Perl 5 中最大的缺陷，但你可以打开一个问题建议看看是否有人支持它。