用PERL处理二进制标量

最新推荐文章于 2024-06-25 20:06:46 发布

bonny95

最新推荐文章于 2024-06-25 20:06:46 发布

阅读量1.9k

点赞数

分类专栏： Perl 文章标签： perl buffer insert socket sockets regex

本文链接：https://blog.csdn.net/bonny95/article/details/3984684

版权

本文深入探讨了如何使用PERL语言有效地操作和处理二进制标量，包括插入、读取和解析二进制数据，特别是在socket通信中的应用，结合正则表达式的使用，提升PERL在处理二进制流时的效率。

摘要由CSDN通过智能技术生成

PERL Handling Binary Scalar

1 [Question]:

I adopt select()...sysread()...syswrite() mechanism to handle socket messages, where messages are sysread() into $buffer (binary) before they are syswritten.

Now I want to change two bytes of the message, which denote the length of the whole message. At first, I use following code:

my $msglen=substr($buffer,0,2); # Get the first two bytes
my $declen=hex($msglen);
$declen += 3;
substr($buffer,0,2,$declen); # change the length

However, it doesn't work in this way. If the final value of $declen is 85, then the modified $buffer will be "0x35 0x35 0x00 0x02...". I insert digital number to $buffer but finally got ASCII!