如何编写在某端口上接收udp消息的脚本？

Leenux

比如一台设备向我的pc发送udp包（明文），如何编写接收端的程序，使之可以在我的pc上显示消息内容？
thanks!

ranzo

try this:

1. 
   
2. #!/usr/bin/perl -w
   
3. # UDP message server $id :udps.pl
   
4. use strict;
   
5. use IO::Socket;
   
6. my($sock, $msg, $hisaddr, $hishost, $MAXLEN, $PORTNO);
   
7. $MAXLEN = 1024;
   
8. $PORTNO = 8088;
   
9. $sock = IO::Socket::INET->;new(LocalPort =>; $PORTNO, Proto =>; 'udp')
   
10.     or die "socket: $@";
    
11. print "Awaiting UDP messages on port $PORTNO...\n";
    
12. while ($sock->;recv($msg, $MAXLEN)) {
    
13.     my($port, $ipaddr) = sockaddr_in($sock->;peername);
    
14.     $hishost = gethostbyaddr($ipaddr, AF_INET);
    
15.     print "Client $hishost said ``$msg''\n";
    
16.     $sock->;send("received!-- $msg --OK");
    
17. }
    
18. die "recv: $!";
    

复制代码

start cmd:
#udps.pl