PERL SOCKET编程

M
e8\ |6}W@0使用PERL SOCKET API首先需要载入SOCKET模块。

;u)O{ P5V0use Socket;

v#P`dH1u0===================================51Testing软件测试网@v#~"aa+o$J3B

A;ZA1}O2Y0socket(文件句柄,AF_INET,数据类型,协议类型);

H5] pCj^)@b4M%L0#建立套接字51Testing软件测试网;C*kVn)ablE

文件句柄随便找个词就可以了。51Testing软件测试网`zM{}

AF_INET为域类型，也可以写为PF_INET。51Testing软件测试网
y"pne;Ma

数据类型，通常用有两种：SOCK_STREAM、SOCK_DGRAM。51Testing软件测试网 |sIq%db0b1~T

协议类型，可以用协议号代替，EGP—8、HMP—20、ICMP—1、RAW—255、RDP—27、RVD—66、TCP—6、UDP—17、XNS-IDP—22、

其他—22、ALL—0；也可以用getprotobyname()函数作此参数。

6wk
o?q-vsK0例子：socket(SOCK,AF_INET,SOCK_STREAM,getprotobyname(’tcp’));

S ST)G npi9CI(T0语柄为SOCK，套接字以TCP方式传输。

socket(SS,AF_INET,SOCK_DGRAM,17);

UFx&t[m!ve0语柄为SS，套接字以UDP方式传输。

=========================================

(nNH Mx4t#z
y(A0connect(文件句柄,sockaddr_in结构体);51Testing软件测试网9Wc2S?-_*q

P9P5\2xM+b)}#g0#连接主机51Testing软件测试网G7Bzu*@

———————————————–

lSU6] ^ rd8d,F(xu0sockaddr_in结构体：

%bTLz6uw#r0$address=inet_aton(主机地址);

"T-Pm$R N
r5O"C0$port=端口号;51Testing软件测试网XBTr k

8\qNg6]0$result=sockaddr_in($port,$address);

#上面的$result就是sockaddr_in结构体，实例：51Testing软件测试网| b"|3d6Z@;[

U+?`(AV#Q'x0Qd9n0$address=inet_aton(127.0.0.1);51Testing软件测试网vd^sXn3Q

$port=80;51Testing软件测试网f x&\{Q}Y

{"j7^V(O1r*q0$result=sockaddr_in($port,$address);

———————————————–

^0L`j/\5b3{0例子：connect(SOCK,$result);51Testing软件测试网6J3N"nK,Y7rq\"L

_-yT0~;c-rS.n \0========================================51Testing软件测试网j s9s)S*Gb

bind(套接字,sockaddr_in结构体);

Llh-m/FE0#绑定服务器主机地址与端口(用于服务端)

例子：bind(SOCK,$result);51Testing软件测试网5H9]Pi6v%}

========================================51Testing软件测试网r/m5{&f)W!dSX

listen(套接字,等待连接最大队列数);

#设置端口状态为监听(用于服务端)

例子：listen(SOCK,10);51Testing软件测试网.`2?b,[d$UG

JaM"S9Q&j$k0===========================================================

accept(远程套接字,服务端监听套接字)

#接收远程数据请求，建立连接(用于服务端)51Testing软件测试网Wwz X-a9?)jn

4n!i6h?@s ~+\}0例子：accept(SESSION,SOCK);51Testing软件测试网?kr9Mz \\[9X.v-d;u

L~yG*|(?#z%Y ?0=======================================

,^U ac'gf;}0close(文件句柄);51Testing软件测试网 U!u y7v[6m@

或51Testing软件测试网K f+W9e0G&I

M'r'e%t+~f)f0u9^0^b0close 文件句柄;

c%Zs'Um@Y*T0#关闭套接字51Testing软件测试网4U2g
Oa#x)Ya!@

例子：close(SOCK);

(k1[%h2m;HVFN0close SS;51Testing软件测试网 v^T_ va

l rV&XIT~b"X;s0●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●51Testing软件测试网0s1W_7iI9L[&\
xK

jx6K _I0rzT l0说说TCP的网络活动顺序：51Testing软件测试网Nc3gr1F_

DN_qy*_F)gj0=======================================================51Testing软件测试网E2}g6]jv(~

PdU'P2KJJ0Client(客户端):51Testing软件测试网/@5o|a#t,Jt

b8n&qdd/?A4j0建立套接字socket()->连接到目标主机connect()->打开autoflush模式autoflush()->

I/O操作->关闭套接字close()51Testing软件测试网C%SiZPh

#RD*U%m6V0Server(服务器):

c\*m8gC9rO*Z0建立套接字socket()->绑定服务器地址与端口bind()->设置监听状态listen()->接受远程套接字accept()->51Testing软件测试网!X9E+Rt;A t?

"eCQNpP)kZ0打开autoflush模式autoflush()->I/O操作->关闭套接字close()51Testing软件测试网v;k+t | HQE;s1SJ

Gq2d5|.z@.rB F x&[0●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●●

◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎

PERL SOCKET API编程实例：51Testing软件测试网d5{y9jx

#}N"B7?W8E2k#J[(C:y0附：I/O操作暂时只使用print()与符号。51Testing软件测试网~;{Nao(O xf

==========================================
_cF!w#Xg0kG051Testing软件测试网3gAS^,zf]2f
#!usr/bin/perl51Testing软件测试网/oV#}!ZM@^V

exit 1; #退出程序

#Cx,jI(|5{ m!x0=========================================51Testing软件测试网/Lmq9Qq8eZ
51Testing软件测试网Wwgaxk,av9n
#!usr/bin/perl

exit 1; #退出程序
3L.Wt^bE0
2W?d2Py/||ku0=============================================

+y0F2o$x8mCnqI0实例注解:

$z
w;r.Wd`w01)TCP的client与server代码中有一行’SOCK->autoflush(1);’，正常情况下下面的I/O代码是会先进入缓存，

'~U!p+mloY0再输出的，但加了上面的代码就可以跳过这一步直接输出了。此代码需要预先加载IO::Handle。51Testing软件测试网eW6b1id6z"K:b!R6v

2)INADDR_ANY通配符的值在Socket模块中已经定义了，其值为本地网络适配的所有网络接口(包括环回地址、

广播地址、多播地址等)。

e o
R T9a8`,^0◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎51Testing软件测试网;w\8Y3^$Y7{r#m{H,\

头有点痛，写到这里，下回介绍send()与recv()……..：P

[日记文]’send()’ and ‘recv’[perl_sock 2]51Testing软件测试网;Cjxl8qr

s`Xao0writer:demonalex

C,~(vvS!|r^0email:demonalex_at_dark2s.org51Testing软件测试网cq~2gf#D(DT

附接上文的某些内容，最后使用的两个C/S程序中的数据交换部分使用了PERL I/O，

现在介绍一下PERL语言分配给套接字的‘原装’网络数据交换函数：send()、recv()。

4`PXqN?x6SQ'["y2a0(这两个函数对UDP协议的作用很大，但对TCP来说其实只能说是等于syswrite()、sysread()。)51Testing软件测试网q.K o${Yq+Bhw

==========================================51Testing软件测试网T)I7o1sQPI&b}} zi0Q

字节变量=send(套接字,传送数据变量,标志参数);51Testing软件测试网}6c
O0H?s

send()函数用于在套接字进程中发送数据。51Testing软件测试网l2D.qH7i8N-d

send()返回的值是储存所发送的字节大小值的变量；传送数据变量为传输数据的内容；51Testing软件测试网)BA-q?H

标志参数为0(默认值就可以了)。51Testing软件测试网8}2Z;@qx/O

例子：$bytes=send(SOCK,$data,0);51Testing软件测试网Pyp O%or|6g%M-](E

\X T9qA,`n0=======================================================51Testing软件测试网{
NwLHojE Yd

Q Dy{,e0W"R7H0地址变量=recv(套接字,接收后的数据所储存的变量,接收数据的长度,标志参数);

recv()函数用于在套接字进程中接收数据。51Testing软件测试网7Gye jj$aQ

n{@qAn,N5A WAt0recv()返回远程主机的地址变量；第二个参数为接收后的数据所储存的变量；第三个

$Y6~:J3l/s7E}0参数为所接收数据的长度；标志参数同样为默认值0就可以了。

例子：$address=recv(SOCK,$buffer,$length,0);

!E sg#Ys l4D+o0===========================================

/]To\6qK7l0实验1
i0U8ofo T|x&[051Testing软件测试网Q
wo|.q'm{
#!usr/bin/perl

V~(J:tl0H*L2F0exit 1;
H?8B0Pv/GL
E8?6A7RMYD051Testing软件测试网c5bS[5]2Y
d K
P
==========================================51Testing软件测试网|9DV w7v5{

8l6f)?9}so&N0#!usr/bin/perl51Testing软件测试网BF1H G5~$E!p6pn$t1l*I

};dF
D
r;aV-q1@0#服务端51Testing软件测试网d,g5n2X {+\

6L)J&Ld-VG#m0exit 1;

[日记文]udp of perl socket[perl_sock 3]51Testing软件测试网 }U k'aV}8`

ZM!c+|l-P0writer:demonalex

^$q~ vwV0email:demonalex_at_dark2s.org51Testing软件测试网+})r%P[;I@/J9n

继续上文谈到的send()与recv()，这次谈一下它们在udp socket中的应用以及如果使用51Testing软件测试网mZv Jm.K

perl socket API来调用UDP。

Y#y%KqF glv0先看看在UDP中的send()、recv()应用:

]6Ub
O#`T~{~9A0==============================================51Testing软件测试网,~6J7M9p,{]

字节变量=send(套接字,传送数据变量,标志参数，发送地址);

LW4|
[-Zuk0send()函数用于在套接字进程中发送数据。51Testing软件测试网U0D3OH7zhag1O

t:gu
U
P Y I0send()返回的值是储存所发送的字节大小值的变量；传送数据变量为传输数据的内容；

标志参数为0(默认值就可以了)；send()在udp中就多了最后一个参数，‘发送地址’，

此地址的数据形式为sockaddr_in格式，表示把第二参数‘传送数据变量’发送到此地址中。

例子：$bytes=send(SOCK,$data,0,$address);

楼上例子中的$address为sockaddr_in格式。

~w7Xk3rz+O5|0============================================

地址变量=recv(套接字,接收后的数据所储存的变量,接收数据的长度,标志参数);

mML;~!vy0recv()函数用于在套接字进程中接收数据。

recv()返回远程主机的地址变量；第二个参数为接收后的数据所储存的变量；第三个

*R]]XS bs-R*y0参数为所接收数据的长度；标志参数同样为默认值0就可以了。

例子：$address=recv(SOCK,$buffer,$length,0);

================================================

从楼上的讲解可以知道，在UDP调用中send()比TCP调用时多了一个参数，而recv()与在TCP调用时的

$O
F1}$n,U@6U0使用方法完全一致。

———————————————————

UDP网络活动顺序:

Client(客户端):

1?\VQ4z0建立套接字socket()->发送数据send()->接受数据recv()->关闭套接字close()

tuW-mI(xI+@|0Server(服务端):

|1o F/louL*w;j0建立套接字socket()->绑定地址bind()->接受数据recv()->发送数据send()->关闭套接字close()51Testing软件测试网Kz(s tk~,p

————————————————————-

db(ti6f2ttc|;p0从楼上的流程不难发现UDP中的客户端与服务端的不同之处有两点:1)服务端在建立套接字后多添了一个

:Akz@{Z0绑定bind()程序，用于使客户端能分辨出服务端的网络地址与端口;2)在send()与recv()步骤上顺序倒过51Testing软件测试网oN8N w7vS9@+\

'q$D^l'Z{QV*L0来了。51Testing软件测试网)q]6yP&CK

〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓

;[r0U G!U,\xN0最后可以看看例子，琢磨琢磨:

5TFOvY4b)S0━━━━━━━━━━━━━━━━━━━━━━━━━━━51Testing软件测试网1]]2[COu&HB

.S `
xF7Q?7lj0#!use/bin/perl -w51Testing软件测试网 ~7M'P|!~F4a

#udp client

use Socket; #导入Socket库

$host=$ARGV[0]; #第一参数为主机变量

'\m`fi?G0$port=$ARGV[1]; #第二参数为端口变量51Testing软件测试网'~cG
]5Op]'hge

$packhost=inet_aton($host); #压缩主机地址

KzyyJ:o&U4b ~5n0$address=sockaddr_in($port,$packhost); #压为sockaddr_in模式51Testing软件测试网\N)tsr,^[(mAt8A

lRa(n3l a0socket(CLIENT,AF_INET,SOCK_DGRAM,17); #建立UDP套接字

send(CLIENT,”hi,body!\n”,0,$address); #向套接字发送字符串变量51Testing软件测试网 d/}:l5`!tK

recv(CLIENT,$buff,100,0); #接收数据

7VG#s*?8?5c9o2n0b0print”$buff\n”; #把接收后的数据打入STDOUT51Testing软件测试网*q0[cz
Ay$p

GT7B7W}l p0close CLIENT; #关闭套接字51Testing软件测试网?0WEc|4Z` u*_}

exit 1; #退出程序

B6B9U ph5N0¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤51Testing软件测试网+`%z t gu8X

-X2Fv.b)J9p0#!use/bin/perl -w51Testing软件测试网
q+\^,P"X L$wnz

!f)P9S!{M!{w0#udp server51Testing软件测试网nyW?b p'ga6o

use Socket; #导入Socket库

$localhost=sockaddr_in(4000,INADDR_ANY);#压入sockaddr_in模式，使用了全局本地压缩地址INADDR_ANY保留字

socket(SERVER,AF_INET,SOCK_DGRAM,17); #建立UDP套接字51Testing软件测试网,s;@8wk+c,K2]w

ed{FB2XED7X0bind(SERVER,$localhost); #绑定套接字

while(1){ #进入服务器循环体51Testing软件测试网'E9On]6}4eg ej

/Hz&v @'U?5n0next unless $client=recv(SERVER,$buff,100,0); #如果接收到数据就把数据压入$buff,保留远程地址在$client51Testing软件测试网*H$tWQef

^CX$\I0chop($buff); #减去$buff最后的输入符号51Testing软件测试网 {8~1]\OXH~

&x3a h$Q$F2N:O&b0print “$buff\n”; #在$buff变量打入STDOUT

"w| Cu.`xa0send(SERVER,”$buff\n”,0,$client); #把$buff发送给客户端51Testing软件测试网d*mD0k1ne#y

"]m\X yg]3Y)S9F0}

close SERVER; #关闭套接字51Testing软件测试网0lq'`QS2Iw7S4F

exit 1; #退出程序51Testing软件测试网tE.ABBG-j

'j%r)d5D-V S0━━━━━━━━━━━━━━━━━━━━━━━━━━━━

'\/Y3a#L'Uo%gX0[日记文]Summary[perl_sock 4]51Testing软件测试网9]:n4W.GIe

V%_G2s[r0writer:demonalex51Testing软件测试网1FLc(iJ?
F

email:demonalex_at_dark2s.org

^:B(w:v'fm| o f0此文为前三篇文章的总结文。51Testing软件测试网v/R6J)q(?f

WJ$da#I
yP0m"D0tcp的服务端I/O结构体:

———————————————–51Testing软件测试网S;U kcc

7G9y-Y
N!g+X0while(1){51Testing软件测试网G!F/ntq`

next unless (accept(CLIENT,SERVER));

CLIENT->autoflush(1);

print CLIENT “WHAT DO YOU WANT?\n”;51Testing软件测试网4]0n3yySI

-?$R&M1? q0close CLIENT;}51Testing软件测试网MXscI)BJ

-q,xBH0S^0———————————————–

O$eyO^u0udp的服务端I/O结构体:51Testing软件测试网(@1yT5K9bAY1L8@/a

;M(G5z WX%f0———————————————–

vq-?tY/tWO0while(1){51Testing软件测试网E+MEm ZI'P

8TF)DJi;n*G0next unless $client=recv(SERVER,$buff,100,0);

r)p.NB
~ p h#Y8na0chop($buff);51Testing软件测试网{#YUa9eK W"y

/H1\k9S4Ru#b#{0print “$buff\n”;51Testing软件测试网sS thq

send(SERVER,”$buff\n”,0,$client);51Testing软件测试网w a5eUn1}Jg

}51Testing软件测试网+us9c:Jb? W

1W#WgBc(X2y0———————————————–

"M Us:DV9jM,H3q0从上面的实例可以看出SERVER的I/O体都是循环体，有一特定条件进行循环

*['u_~"{0(我们这里用了死循环while(1))，为了就是使服务端能不停的在监听。

TCP I/O的特征就是在accept()中生成一个客户端的套接字，所有I/O操作都

在此套接字中进行，当I/O完成后，先把客户端的套接字关闭，最后才在程序

的末端部分关闭服务端的套接字。

UDP I/O的特征就是recv()部分，由于在介绍UDP的那篇文中的实例为通过UDP

把输入的数据返回到客户端的程序，在服务端中的下一步就应该调用send()了，51Testing软件测试网tMtr@T

$OK@4NT`~4Hh0在send()中的最后一个参数为sockaddr_in形式地址，又因为在UDP中不能调用

accept()，所以无法得知对方的对象在哪里，只能通过recv()的返回值。recv()51Testing软件测试网9v VGm!A2Hxv

)T8By Dw/mp0的返回值刚好为对方发送数据的sockaddr_in形式地址。