Raku中Perl的替代方案？

Question

在这里学习我在Raku（neéPerl 6）的方法，非常好。但是我非常想念这个神奇的

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

（将下一个输入行读入$x，循环其余部分；输入来自名为输入的文件，如果没有给定文件，则为标准输入）。Perl 5到6教程/迁移指南/...只是谈论slurping整个文件，或者opening单个文件的名称。没有魔法“按顺序从命名文件中获取输入”我能找到。

我要魔法回来！




Answer 1

您正在寻找的功能基本上是存在的。此脚本：

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获取输出。唯一不存在的是的单一替换

get和行的零arg候选者是根据$*ARGFILES实现的，该文件句柄提供了从参数列表或$*中获取文件的功能，这意味着可以将其传递给任何需要文件句柄的代码。