perl - Term::ReadLine - 我需要按两次向上箭头来检索历史记录

Question

我正在使用 Term::ReadLine 并遇到一个奇怪的问题，我需要按两次向上箭头才能从 addhistory 中检索项目。这是我正在使用的脚本。

use Term::ReadLine;

my $term = Term::ReadLine->new('Term1');
print $term->ReadLine."\n";

while (defined(my $cmd = $term->readline())) {
    $term->addhistory($cmd) if $cmd =~ /\S/;
}

为了测试，我将输入一些“命令”，然后尝试使用向上箭头检索这些命令。我按了一次向上箭头，最后一个项目立即出现，但我需要按两次向上箭头才能检索到每个后续项目。

我早些时候在我正在从事的一个小项目中遇到了这个问题，并且遇到了同样问题的人。此问题的解决方案是修改 addhistory 行，如下所示:

$term->addhistory($cmd) if $cmd !~ /\S||\n/;

它奏效了，所以我继续前进，直到 Tanktalus 在我发布的另一个问题中提出这个问题。 Perl Term::ReadLine::Gnu Signal Handling Difficulties

他问“/\S||\n/应该做什么？”。好吧，让我去找那个建议这个作为修复的页面......是的......找不到它。因此，虽然我可以通过我发布的修改让它工作，但我有点卡住了，因为 A。我不知道它为什么修复它，B。为什么我似乎是唯一遇到这个问题的人？

如有任何帮助或建议，我们将不胜感激! :)

用以下版本测试了上面的脚本:

Perl - 5.12.4 and 5.16.1
Term::ReadLine::Gnu - 1.20
Term::ReadLine::Perl - 1.0303 (Just tried it to make sure it wasn't Gnu)
Term::ReadLine - 1.10

Answer 1

/\S||\n/ 将始终匹配，因此您永远不会调用 addhistory。如果 $term->Features->{autohistory} 为真，则您无论如何都不需要。

“按两次向上箭头”是指每按两次向上箭头，您就在历史记录中向上移动一次吗？如果是这样，您对 addhistory 的不必要调用就是罪魁祸首。完全删除调用是合适的解决方法。