Perl 如何实现串行通信啊？

Chennysky

有人说直接 将 com1 当成文件就可以了
有人建议用 Win32::SerialPort ( 基于 Win32API::CommPort )

各位有什么好建议？有没有相关的源代码供参考一下？谢谢

open(FH,">>COM1") or die "$!\nCant't create";
print FH `dir`;

虽然没有报错，可是我从哪儿查看结果呢？
怎么可以用串口实现 超级终端 的功能，将多个命令顺序执行呢？

谢谢各位

Chennysky

经过反复调试、测试与跟踪，后来发现是经com发送数据到PC的那个函数有问题
它在处理时就将 “0A”变成了 “0D0A”，（可能用于其他用途吧）
后来只好重新写了一个新的函数发送数据到PC，现在OK！

打扰大家这么久，不好意思！

Chennysky

呵呵，我是用于测试用的

当然 这个串口接收数据的程序用C写也是可以的
估计我得这么做了

Thanks

rimrock

为什么一定要用perl来做串口呢？

Chennysky

发现：使用SerialPort，串口本身就是以二进制打开的
#  binmode (FH); #这样会出错
就当然会出错了

Ports are opened for binary transfers. A separate binmode is not needed.
（From CPAN）

可是 0A变成0D0A
还是会发生，我用PC上的一个同样的二进制文件进行逐字节读出写入，没有发现这样的问题，串口怎么就出错了呢？

继续努力中！这个串口搞了我好久哦

Chennysky

不好意思，一直跟这个贴是因为问题还没有很好的解决：

0A变成0D0A
AF变成0DAF

估计是因为 读串口时，直接将串口当成了文本文件，如果将它转化为二进制文件该不会有问题吧
可是 binmode (FH);   #FH 是串口句柄

会出错Can't locate object method "BINMODE" via package "Win32::SerialPort"。

这该怎么办呢？

Chennysky

基本问题：

从串口传回PC的数据放在哪儿了呢？这个缓冲区的大小有限制么？如果1分钟内不取出，数据会一直保存在那个缓冲区的么？

rimrock

串口发送多大的文件一般都不会出错。
但是在数据线过长，波特率过高，有时会出错。像你的情况肯定是程序的问题

Chennysky

进展：
我在读取 com 传递给PC的数据流（二进制，逐字节传输）时，发现问题：
0A变成0D0A
AF变成0DAF

只好经过判断将其中的0D去掉，这样可以接收到一些10K以下的文件，测试2个文件成功
可是一旦原二进制文件中就有 0D0A ，0DAF 在一起连着的呢？我就无法处理了！

问题：com 怎么会将 0A变成0D0A（实际是换行），AF变成0DAF的呢？我该如何传送或接收才会避免这种问题？

Thanks！