我应该如何处理Perl 6$*无法通过行（）读取的ARGFILES？

Question

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

for lines() { put $_ }

如果它不能读取其中一个文件名，它会抛出X::Adhoc（也许有一天它会有更好的异常类型，这样我们就可以用. path方法获取文件名）。好吧，抓住那个：

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

所以这捕获了X::Ad的错误，但仅此而已。尝试块在这一点上完成。它不能。恢复并尝试下一个文件：

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

回到Perl5Land，您会收到一条关于错误文件名的警告，程序将继续进行下一步。

如果存在一些参数，我可以先过滤@*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() }
        }
    }

但这需要做很多工作。有没有更简单的方法来处理这个问题？

Answer 1

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

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

.say for lines

简单地混合在一个角色中，使IO::CatHandle.next方法重新尝试获取下一个句柄。（您也可以使用但运算符在副本上混合）。

如果它不能读取其中一个文件名，它会抛出X::Ad

X:：AdHoc来自。打开call；要将这些异常类型化，有一个有点发霉的PR，所以一旦修复了它，IO:：CatHandle也会抛出类型化异常。

它不能.恢复

是的，您只能从捕获它的CATCH块恢复，但在本例中，它是在中捕获的。打开调用，并进入一个故障，然后由IO:：CatHandle接收。下一个句柄及其。异常是重新定义的。抛出。

然而，即使它在这里是可恢复的，它也只是恢复到引发异常的路径中，而不是使用另一个句柄重试。这没用。（我考虑过使其可恢复，但这给开关上的增加了模糊性，我不愿意指定从某些位置恢复异常必须能够有意义地继续，我们目前不为核心中的任何位置提供这样的保证）。

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

请注意，这种特殊意义在第6章中消失了。d语言，只要IO:：Handle。打开（扩展为IO:：CatHandle.new）即可。它可能会在IO:：ArgFiles中得到特殊处理，但我还没有看到这样的建议。

回到Perl5Land，您会收到一条关于错误文件名的警告，程序将继续进行下一步。

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

IO:：ArgFiles可以是提供这种行为的特殊情况。就个人而言，我反对到处都是特殊外壳的东西，我认为这是Perl 5中最大的缺陷，但是你可以提出一个问题，看看是否有人支持它。