如何诊断 Perl 的 getc 问题？

【问题标题】：How can I diagnose problems with Perl's getc?如何诊断 Perl 的 getc 问题？
【发布时间】：2011-01-20 07:55:32
【问题描述】：

getc 函数出现了这个奇怪的问题。我使用getc 从套接字文件处理程序中获取一个字符。我需要模拟 pc 和移动设备之间的消息交换。对于前几条消息，getc 工作正常。但是对于这个，getc 无法从套接字中得到任何东西。整个 Perl 程序都被阻塞了，直到我重置了那个移动设备。但是wireshark显示消息被发送到正确的端口号。

有什么工具可以用来处理正在发生的事情吗？

谢谢

【问题讨论】：

标签： perl getc

【解决方案1】：

文件和套接字句柄问题的一个常见原因是可以到达输入的结尾并且可以设置句柄错误或 eof 标志。尝试在调用getc 后调用seek HANDLE,0,1 重置句柄没有返回任何内容（或者应该是sysseek？getc 是缓冲I/O 操作吗？

【讨论】：

感谢您的回复。我使用wireshark 并捕获来自tcp 客户端的额外Fin,Ack 发送，这会导致接下来的3 次握手不同步。我通过使用与先前测试相同的套接字来解决问题。现在看起来不错。