loop {
my $word = prompt '> ' ;
say $word;
}
exit如果/当我不按Ctrl + D而不是打印单词时，正确的方法是什么？
我对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操作员，循环将在空输入处终止。）
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句