如何在Windows上使用Perl从STDIN中读取单个字符？

使用Perl,如何从STDIN中捕获单个字符而无需用户点击Enter(类似于C的getch()函数)？

Perl有一个getc()函数,但根据perlfunc：

However,it cannot be used by itself to fetch
single characters without waiting for
the user to hit enter.

perlfunc文档提供了一种使用getc()读取单个字符的方法,但它需要使用stty来操作终端设置.我写的脚本需要在Windows上运行(没有cygwin,msys等) – 所以这不是一个选项.

你想要这个模块： Term::ReadKey.