2

我正在使用 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 信号处理困难

他问“/\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
4

1 回答 1

5

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

“按两次向上箭头”是指每两个向上箭头向上移动一次？如果是这样，那么您对 ​​addhistory 的不必要调用就是罪魁祸首。完全删除呼叫是适当的解决方法。

于 2012-11-11T18:20:25.563 回答