perl - 在 FreeDOS 下在 PERL 5 中执行 I/O 端口访问

Question

我已经安装了 Perl 5 的 FreeDOS 兼容副本，用于 x86 平台。我还在安装中添加了csdpmi7b DPMI 管理器，以便 Perl 在访问 386 类型执行环境时可以正确运行。

一个程序如何访问 Perl 脚本中的 I/O 端口？如果它需要使用某些库或支持模块，如果您能告诉我如何将其编程到访问 I/O 的脚本中，那将非常有帮助。

我对读/写 I/O 端口的兴趣是能够创建一些硬件测试程序。

Answer 1

设备IO本质上是文件读写。所以你可以使用这个：

use Fcntl;
sysopen(MODEM, "/dev/cua0", )_NONBLOCK|O_RDWR)
    or die "Can\'t open the modem: $!\n ";

Perl 食谱有一个很好的例子。