raku - 如何在 Ctrl+D 输入时退出 Perl 6 脚本？

Question

loop {
  my $word = prompt '> ' ;
  say $word;
}

如果/当我按下 Ctrl+D 而不是打印单词时，使它成为 exit 的正确方法是什么？

Answer 1

我对 Perl 6 的熟悉程度不如 Perl 5，但 Perl 5 方法似乎有效:

loop {
  my $word = prompt '> ' ; 
  last if not defined $word;
  say $word;
}

这可能更惯用:

while (defined my $word = prompt '> ') {
    say $word;
}

(没有 defined 运算符，循环将在空输入时终止。)