求助：udp接收到的数据字节数，以及16进制输出

sithui

抄了一个测试程序，收发数据用。
发现直接输入的可读字符可以显示，调试协议时的数据并不是可见字符的，显示为空。
同时我也不知道怎么从recv函数中得到收到的数据量。
我查了IO::Socket::INET，发现perldoc和CPAN里都没有对recv函数的详细讲解。
perl平时当工具用一用，实在是不熟。还请大神们帮帮忙！
代码如下：

1. use IO::Socket;
   
2. my $sock = new IO::Socket::INET (
   
3.     PeerAddr => '192.168.1.170',
   
4.     PeerPort => '20000',
   
5.     Proto => 'udp',
   
6. );
   
7. die "Could not create socket: $!\n" unless $sock;
   
8. print $sock "Hello there!\n";
   
9. 
   
10. while (1){
    
11.         print "\nPlease input:";
    
12.         my $msg_out=<STDIN>;
    
13.         if ($msg_out eq "\n"){next;}
    
14. 
    
15.         if ($msg_out=~/quit/i)
    
16.         {
    
17.             print$sock "I will quit,bye!";
    
18.             close($sock);
    
19.             exit 0;
    
20.         }
    
21.         print $sock $msg_out;
    
22.         my $msg_in;
    
23.         my $rlen=1024;
    
24.         my $peer = $sock->recv($msg_in, $rlen, 0);
    
25.         print "Server result[$rlen]:$msg_in\n";
    
26.         print_hex($msg_in);
    
27.     }
    
28. close($sock);
    

复制代码

sithui

我想知道的是，怎么从recv中得知我一次收到了多少个字节。
然后是，我想把msg_in打印成16进制的，方便察看。
谢谢！！！

laputa73

length ($msg_in)
非可见字符需要pack/unpack

sithui

print_hex 定义在这里：

1. sub print_hex {
   
2.     my ($str) = @_;
   
3.     my @arr = split //, $str;
   
4.     for my $c (@arr) {
   
5.         printf "<%x>", ord($c);
   
6.     }
   
7.     printf "\n";
   
8. }
   

复制代码

sithui

回复 3# laputa73

谢谢！我也找到这了，

1. $rlen = bytes::length($msg_in);

复制代码

这样可以得到长度了。
可能我协议还是有问题，对方回应过来，我这里接收显示$rlen为0，不知道有没有类似linux下的errno可以看的。正常的话，没有收到数据应该会阻塞在recv上的吧。