标签： perl keyboard-events
我有一个实用程序，我用它作为伪“shell”。它基本上是while（）的stdin for commands并通过不同的子程序运行它们。
我的问题是，是否有一个模块或一些示例我可以用来捕获向上箭头，以便我可以让它执行某个操作？我打算合并一个类似于bash的前一个命令函数。
现在，如果我按向上箭头，我会得到这个：
patrick@utility$ ^[[A^[[A^[[A^[[A
提前致谢。
答案 0 :(得分：6)
试试Term::ReadLine模块
Term::ReadLine