Rakudo Perl 6:使用Readline模块时屏幕清晰

Question

这是我的测试程序:

use Readline;

shell 'clear';
my $r = Readline.new;

loop {
  my $a = $r.readline("> ");
  {say ''; last} if not defined $a;
  $r.add-history( $a );
  say $a;
}

输入任何字符串后,它将退出并显示以下消息:

> abc
Internal error: unhandled encoding
  in method CALL-ME at /opt/rakudo-pkg/share/perl6/sources/24DD121B5B4774C04A7084827BFAD92199756E03 (NativeCall) line 587
  in method readline at /home/evb/.perl6/sources/D8BAC826F02BBAA2CCDEFC8B60D90C2AF8713C3F (Readline) line 1391
  in block <unit> at abc.p6 line 7

如果我评论该行shell 'clear';,一切都OK.

Answer 1

这是一个猜测,但我想当你告诉你的shell到clear屏幕时,它会发送一个控制字符或控制序列作为终端仿真器的输入.Readline正在从同一个流中读取,当您尝试读取一行时,这些字符最终会出现在"行"的开头.这些字符无效UTF-8(默认编码),因此不能解释为字符串.如果打开堆栈跟踪中的文本文件并查看相关的行号,您将了解更多信息.

您可以尝试呼叫reset-terminal或reset-line-state查看是否可以摆脱该角色.我在低级编程语言中要做的是对输入进行非阻塞读取(不将其转换为字符串),但我在Perl 6库中找不到API.