web-dev-qa-db-ja.com

RakuでのPerlの<>の代替？

ここで、Raku（neéPerl 6）の周りの私の方法を学びます。しかし、Perl 5からの魔法<>が本当に恋しいです。

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

（次の入力行を$xに読み込み、残りをループします。入力は、入力として指定されたファイルから、またはファイルが指定されていない場合は標準入力からです）。 "Perl 5 to 6"チュートリアル/移行ガイド/ ...ファイル全体をSlurpingするか、個々のファイルを名前でopeningするかについて話します。 「名前の付いたファイルから順番に入力を取る」という魔法はありません。

魔法を取り戻したい！

migrationraku
11
vonbrand

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

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