如何在 Perl 中读取 Windows 上的键输入？答案

【问题标题】：How can I read key input on windows in Perl?如何在 Perl 中读取 Windows 上的键输入？
【发布时间】：2009-11-06 08:05:51
【问题描述】：

我想在 perl 上开发一些用于自动完成单词的实用程序。 Perl 中是否有任何有效的方法可以在 win32 上挂接键盘（线程挂接/肯定不是系统挂接）并在单击某个键时捕获事件？

我想在消息发送到操作系统（如 setwindowshookex win32 api）之前拦截键盘并处理消息（添加自动完成功能）然后继续当前我有带有 Richedit 文本的应用程序，当用户在应用程序上写一个词他之前写过（我们保存在某个地方）然后自动编译完成。

我知道可以使用 win32::api 完成

如果 perl 上有一个模块可以为我做到这一点，那可能很棒？

【问题讨论】：

【解决方案1】：

为此有一个 CPAN 模块：Term::ReadKey。您可能还想查看perldoc -f getc。您的问题中没有什么是 Perl 独有的——您只想从缓冲区或标准输入中读取字符并单独处理它们。

【讨论】：

【解决方案2】：

在 Win32 上，如果您想完全控制控制台，可以使用 Win32::Console。

【讨论】：