Windows下Strawberry Perl读取UDP数据包需POSIX模块的问题求助

问题根源 #

你遇到的情况是因为Perl原生socket函数创建的UDP套接字句柄，默认不支持<$sock>这种面向流的读取操作。use POSIX;之所以能让它工作，是因为该模块会隐式修改套接字的IO处理模式，但这并非UDP数据读取的正确做法，也不符合Perldocs的建议。

正确解决方案 #

方案1：使用recv函数（推荐） #

UDP是面向数据包的协议，recv是Perl核心函数，专门用于从套接字接收完整数据包，无需依赖任何额外模块：

my $buffer;
# 4096是缓冲区大小，可根据AIS数据包实际大小调整（AIS单包通常不超过100字节）
my $bytes_read = recv($sock, $buffer, 4096, 0);

if ($bytes_read) {
    # 处理清洗$buffer中的AIS数据，例如：
    chomp $buffer; # 移除可能的换行符
    print "Received AIS data: $buffer\n";
}

recv会直接读取一个完整的UDP数据包到$buffer，返回读取的字节数，完全适配UDP的特性，避免了<$sock>的流读取兼容性问题。

方案2：改用IO::Socket::INET创建套接字 #

如果偏好使用<$sock>语法，可使用Perl核心模块IO::Socket::INET封装套接字创建，它会自动配置正确的IO层，无需POSIX：

use IO::Socket::INET;

# 替换为你的监听地址和端口
my $sock = IO::Socket::INET->new(
    LocalAddr => '0.0.0.0',
    LocalPort => 5555,
    Proto     => 'udp',
    ReuseAddr => 1,
) or die "Failed to create socket: $!";

while (my $data = <$sock>) {
    chomp $data;
    # 清洗并转发数据
}

IO::Socket::INET简化了套接字的创建和配置，返回的对象原生支持<>操作符，代码更简洁易维护。

内容的提问来源于stack exchange，提问作者Hoodoo