perl中的缓冲区操作

MAR*_*ARK 2 perl network-programming

我使用perl recv调用通过网络接收数据包.我能够接收数据包,但数据包的格式化方式是数据包的前两个字节传达有关消息其余部分的信息.我在perl中没有很多编程经验,我不知道如何将接收到的数据包中的前两个字节复制到另一个变量中.

Eug*_*ash 6

你想要unpack:

my ($byte1, $byte2) =  unpack('(a1)2', $packet);
Run Code Online (Sandbox Code Playgroud)