这是我的测试程序:
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 .
1 回答
这是一个猜测,但我想当你告诉你的shell到
clear
屏幕时,它有效的UTF-8(默认编码),所以如果你在堆栈跟踪中打开文本文件,'t be interpreted as a string. You'll会知道更多并查看相关的行号 .您可以尝试调用
reset-terminal
或reset-line-state
来查看是否可以删除该字符 . 我在低级编程语言中要做的是对输入进行非阻塞读取(不将其转换为字符串),但我在Perl 6库中找不到API .