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';，一切正常。

Answer 1

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

您可以尝试调用 reset-terminal 或 reset-line-state 以查看是否可以摆脱该字符。我会用低级编程语言做的是对输入进行非阻塞读取（不将其转换为字符串），但我在 Perl 6 库中找不到 API。

Rakudo Perl 6：使用 Readline 模块时清除屏幕

Rakudo Perl 6: clear screen while using Readline module

rakudo

raku