📄 udpliteserver.pl
字号:
#!/usr/bin/perl# A simple Perl UDP-Litev4/v6 server which listens on `$PORTNO'use Socket;use Socket6;$PORTNO = 2000;$proto = getprotobyname("udplite") || 136;socket(SOCKET, PF_INET6, SOCK_DGRAM, $proto) or die "socket: $!";bind(SOCKET, pack_sockaddr_in6($PORTNO, in6addr_any)) or die "bind: $!";while(1) { defined($src = recv(SOCKET, $msg, 1024, 0)) or die "recv: $!"; ($host, $port) = getnameinfo($src, NI_NUMERICHOST | NI_NUMERICSERV); printf "from %s#%s: $msg\n", $host, $port;}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -