windows - 使用 Perl 脚本模拟按下键盘 F 键

Question

有没有一种方法可以让我在 Windows 7 的 Perl 脚本中模拟按下功能键 (F1-F12)？

我有一个程序需要按 F7 才能停止。

我试过终止程序进程，但这并没有完全停止进程。

Answer 1

如果您使用的是 Windows，Win32::GuiTest可以做你想做的事。他们有 several examples使用 SendKeys 按功能键。

在 Unix 上，情况既容易又困难。功能键通常映射在终端中以发送多个字符。您可以找出他们使用 ord 和 sprintf 来获取十六进制值的内容(更易于使用)。这里以“kj”作为简单示例，然后是 F1 到 F7。

$ perl -wle 'while(<>) { chomp; print join ", ", map { sprintf "%x", ord } split //, $_ }'
kj
6b, 6a
^[OP
1b, 4f, 50
^[OQ
1b, 4f, 51
^[OR
1b, 4f, 52
^[OS
1b, 4f, 53
^[[15~
1b, 5b, 31, 35, 7e
^[[17~
1b, 5b, 31, 37, 7e
^[[18~
1b, 5b, 31, 38, 7e
^[[19~
1b, 5b, 31, 39, 7e

ASCII 1b是转义符(在终端上用 ^[ 表示)。 5b是[，依此类推。因此，您可以将这些字符串打印到程序的输入或 tty。例如，F8 将是“\x{1b}[19~”。

为什么 F1-F4 不同？ VT100 terminal ，这一切都基于它，只有四个功能键。后者VT220添加了其余部分。

可能有一个模块可以帮你解决这个问题，但我找不到。