在Raku中可以替代Perl的<>吗？

在这里学习我周围的Raku（neéPerl 6），非常好。但是我非常想念<>Perl 5 的魔力，您可以在其中：

my $x = <>;
print $x;
while(<>) {
  print join(':', split);
}

（将下一条输入行读入$x，循环其余部分；输入来自名为input的文件或标准输入（如果未提供文件））。“ Perl 5到6”教程/迁移指南/ ...仅讨论slurp将整个文件或open按名称命名的单个文件。我找不到“从顺序的命名文件中获取输入”的魔术。

我想要魔术！

您正在寻找的功能大部分存在。该脚本：

my $x = get();
say "First: $x";
for lines() {
    .say
}

给定这些输入文件：

$ cat foo
foo line 1
foo line 2
$ cat bar
bar line 1
bar line 2

将被调用为：

raku script.p6 foo bar

产生输出：

First: foo line 1
foo line 2
bar line 1
bar line 2

$*IN如果没有文件，它将也从中获取输出。唯一不存在的是对的单个替换<>，因为这将依赖于wantarray类似功能，而该功能与多次调度不兼容（并且Raku认为多次调度更为有用）。

对于零ARG候选人get和lines实现来讲$*ARGFILES，文件句柄，它提供了从参数列表或以文件的功能，$*IN这意味着我们可以把它传递给期望一个文件句柄任何代码- 。

你的魔法够了吗？

sub MAIN( Str $file where *.IO.f  )
{
    .say for $file.IO.lines.map: *.comb.join(':');
}