PERL打印收到的Socket消息
利用Perl的Select(),sysread()和syswrite()收到的消息将以二进制的形式存储到$buffer中,因此如果直接打印$buffer的内容将得到乱码。要将二进制内容转换为十六进制数串,则必须使用unpack()函数,即:
my $hexstr=unpack("H*",$buffer);
而此时如果打印$hexstr将得到一系列的十六进制数串(数串的长度是接收到的字节数的两倍),仍然难以阅读。因此,有必要将十六进制数串每两个数字进行拆分并加前缀“0x”以便阅读。此时需要借助正则表达式进行模式匹配,方法为:
my @msg=($hexstr =~ m/../g);
其中.用以匹配一个字符。
示例代码如下:
参考文献:
1. Perl Doc-Data::Numbers
http://perl.active-venture.com/pod/perlfaq4-datanumber.html
2. Perl函数pack/unpack:
http://hi.baidu.com/xemoaya/blog/item/7ea20008f8d23ed563d98660.html