RakuでのPerlの<>の代替？

ここで、Raku（neéPerl 6）の周りで私の方法を学びます。しかし、私<>はPerl 5 の魔法をひどく欠けています。

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

（次の入力行をに読み込み$x、残りをループします。入力は、入力として指定されたファイルから、またはファイルが指定されていない場合は標準入力からです）。"Perl 5 to 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は複数のディスパッチがはるかに有用であると考えています）。

引数なしの候補getとlinesは、引数リストまたはからファイルを取得する機能を提供するファイルハンドルとして$*ARGFILES実装されます。つまり、ファイルハンドルを$*IN必要とする任意のコードにファイルを渡すことができます。

あなたにとって十分な魔法ですか？

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