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

Question

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

一个程序如何访问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 cookbook就是一个很好的例子。