udpserver.pl 和 udpclient.pl

udpserver.pl

#!use/bin/perl -w

use Socket; #导入Socket库

$localhost=sockaddr_in(,INADDR_ANY);#压入sockaddr_in模式，利用了全局当地压缩地点INADDR_ANY保存字
socket(SERVER,AF_INET,SOCK_DGRAM,); #成立UDP套接字
bind(SERVER,$localhost); #绑定套接字
while(){ #进入办事器轮回体
next unless $client=recv(SERVER,$buff,,); #若是领受到数据就把数据压入$buff,保存长途地点在$client
chop($buff); #减去$buff末了的输入标记
print "$buff/n"; #在$buff变量打入STDOUT
send(SERVER,"$buff/n",,$client); #把$buff发送给客户端
}
close SERVER; #封闭套接字
exit ; #退出法式 

udpclient.pl

#!use/bin/perl -w
use Socket; #导入Socket库
$host=$ARGV[]; #第一参数为主机变量
$port=$ARGV[]; #第二参数为端口变量
$packhost=inet_aton($host); #压缩主机地点
$address=sockaddr_in($port,$packhost); #压为sockaddr_in模式
socket(CLIENT,AF_INET,SOCK_DGRAM,); #成立UDP套接字
send(CLIENT,"hi,body!/n",,$address); #向套接字发送字符串变量
recv(CLIENT,$buff,,); #领受数据
print"$buff/n"; #把领受后的数据打入STDOUT
close CLIENT; #封闭套接字
exit ; #退出法式