socket编写聊天室服务器程序

Socket简易编程:
,D7F[_I9?~e;P0开始聊天,你需要在internet上建立一个连接,对Perl程序员来说,这意味着要和socket打交道.而以前这是很困难的,因为你不得不使用pack()来建立一个C结构来进行底层的系统调用.但在最新版的Perl中我们可以使用IO::Socket包,很容易地打开一个socket. 当用户连接聊天服务器时,telnet程序在指定的端口打开一个连接,所以服务器也必须在那个端口打开一个socket,**所有进来的连接.下面如何通过IO::Socket来做到这一点:
^^5cR
H3JG4P0
-en _0IC1Y0use IO::Socket;
W2}c$D
u6h0
_(A@r$~8g1f.j?&\0my $listening_socket =51Testing软件测试网l@9B SAD ?
IO::Socket::INET->new(Proto => 'tcp',51Testing软件测试网FAf:Y'gNF
LocalPort => 2323,51Testing软件测试网h]YYG_
Listen => 1,51Testing软件测试网(qi(H1ZO8W#P,MT
Reuse => 1) or die $!;
4r pA6O/p"s0所有参量的含义:
lWhG%]0Proto: 定义网络所用的协议 - 在这里我们用的是TCP. 在internet上通常有两种协议用得比较广泛 - TCP 和 UDP. TCP适用于稳定的连接,可以重新发送丢失的数据包,而UDP用于那些不用重发数据包的场合(如实时音频数据流).
7S#x5eI~(G"_0LocalPort: 定义连接的端口号.51Testing软件测试网:LBi*K(Z@z
Listen: 我们将**来自其它计算机的连接,而不是自己建立一个连接.所以用户要先telnet到端口2323,然后运行了聊天服务程序的计算机来建立连接.51Testing软件测试网E"M
Eb[E:n]
Reuse: 这个选项意思是如果我们"杀掉"聊天服务程序然后再重新启动,将能够马上重新使用原来的端口,而不用等待以前那个连接完全结束.51Testing软件测试网htB%wH(NG9bt
我们正等待某个连接的到来.... 一个连接到来以后,我们需要accept这个新的连接:51Testing软件测试网8f:e!Sy;\+KL
$socket = $listening_socket->accept;51Testing软件测试网'`;Fg%sP*~%yY(e
一旦我们建立了一个连接,我们可以发送一些文字给这个用户(还不完全是,请看本文的结尾部分):51Testing软件测试网l%t6Y J7\-C i}j*C
$socket->send("hellorn") or print "connection closed at other endn";
k j'l2uNZ4J"E0我们也可以接收用户发来的信息:51Testing软件测试网+k*t.d}/o E%p$l
$socket->recv($line, 80);51Testing软件测试网r3nJ)l5v0|,BdA$y0u.i
if($line eq "") {51Testing软件测试网[Ck
PU+c9J
print "connection closed at other endn";51Testing软件测试网F:OOs)A_
}51Testing软件测试网rt^0L.Y8_
最后我们完成了连接,可以关闭它:
$caJ w5G_0$socket->close;51Testing软件测试网G6I1W/?eI*X#i
大部分程序只在一个时刻处理一个用户.如果用户还没有准备好,程序就没有什么好做的.所以Perl程序没有从<stdin>读到什么东西,它就停下来等待直到用户准备好. (这叫blocking I/O.)
w$Lm Rl0这种方式不能用于聊天服务程序,用户不可能排着队来.一个用户可能离开去喝些咖啡,但其它用户还在拼命地敲打键盘(聊天),服务程序还得处理他们的信息.
Q5~;{(a"oFM~Hn"zX0解决这个问题的一个办法是为每个用户创建一个入口(entity),或者用fork()创建另外一个进程,或者用多线程编程方法(遗憾地是Perl还用不了).这样系统就可以为多个用户服务, 但每个用户有他自己的入口(entity)等待他输入命令. 但是进程的系统开销比较大,如果很多用户登录的话,系统资源很快会变得不足.最好是用一个进程来处理所有人的请求.
7s]g(m6k@{D'k0我们真正需要的是要知道谁正在等待服务,必须马上处理(除非没有一个人想聊天).这就是select()函数所要做的.51Testing软件测试网-FW%Ac'|]
象socket函数一样,select()曾经也是很难用,所以大多数程序员都尽量避免使用它. 但Perl给它加了一个面向对象编程的包装,叫做IO::Select,使得使用非常简单.
(Al6DPhr'[|+n Q0假设我们要等待两个sockets, $thing1 and $thing2. 首先我们创建一个包含两个socket的select()对象:
-Yv`T:Hnd0$select = IO::Select->new($thing1,$thing2);
8KCR1LEF8d:l0下一步,当我们需要知道谁有数据要处理时,我们就查询select对象:51Testing软件测试网QM+w}5X @
my @ready = $select->can_read;51Testing软件测试网HF~l)x#kr5s6y
这个调用将等待直到$thing1或$thing2中任何一个准备好, 它将返回一个包含socket的数组. (如果它们都准备好了,@ready将包含两个socket.) 一旦有了准备好的socket, 我们一个一个地读取数据找出它们发送的是是什么:51Testing软件测试网 BE/HN^3fD]A!Z
for $socket (@ready) {
W!sN*IJO0$socket->recv($line,80);
r O+t6O7}E b/W0if($line eq "") { die "they hung up on me"; }
!j+f}
Y/CP'kT"gAf:EO0print "someone sent $line. Sending it back.n";
*Z{$Pz V(e W0$socket->send($line) or die "hey, where did they go?";51Testing软件测试网Y]'_xWYt?`
}
6DC&j Q9s8@0现在我们有足够的片段来写我们的第一个聊天服务程序. 这个聊天室里的交谈没有什么意思,除非你中意和自己聊天 - 服务程序会把你说的全部回送. 但它将告诉你如果结合socket和select()来建立一个一个时刻只能做一件事的服务器.下面是程序源码:51Testing软件测试网XLY&tQ'@%nA0M5j
#!/usr/local/bin/perl -wT
1u\\L_$S0require 5.002;
p]
dtN
C_0use strict;51Testing软件测试网S sv!Z c;l;g
use IO::Socket;
1h5on'TgA0use IO::Select;51Testing软件测试网G3ReP%i&W
#创建一个socket然后**一个端口51Testing软件测试网 [qp]y%V:L
my $listen = IO::Socket::INET->new(Proto => 'tcp',51Testing软件测试网{!CB0yR/U2]
LocalPort => 2323,
1M q7|yH hO6~0Listen => 1,51Testing软件测试网qW;e,hI(gF
Reuse => 1) or die $!;
6\x*H }4t RI$^'MA;A0# 开始$select只包含我们**的socket
P m?w/c;h0my $select = IO::Select->new($listen);51Testing软件测试网 HF)|H+y$^ T
my @ready;51Testing软件测试网9O6G$uWvV-xG H
#等待,直到有事情发生51Testing软件测试网,SV;ihYT5C_C z
while(@ready = $select->can_read) {51Testing软件测试网2RO
Jt1|)m

0`/N]j+Gw pR0my $socket;
}5`5]X/C051Testing软件测试网2R?$~.kyL}+z7r*g
# 处理每个准备好了的socket
b6[&Y$J$L/T:lB2FGds0for $socket (@ready) {51Testing软件测试网4L6qq/q!o_v%y

h.E2r7H
KZv[0# 如果被**的socket准备好了,接收一个新的连接
!ak j|1p%O2A)Wa1K~0if($socket == $listen) {
e}/e~7hL-a0my $new = $listen->accept;
:vDpp``PX0$select->add($new);51Testing软件测试网OI/toPv6_X'xQ
print $new->fileno . ": connectedn";
V.S7YfK Qa0} else {51Testing软件测试网&oP v(_!v!oqMxj
51Testing软件测试网VFQ*bu+q{w
# 否则读入一行文字,然后发送回去51Testing软件测试网 M#w,J3l5@b `#X
my $line="";51Testing软件测试网9\Em'l'o4]j.Jb
$socket->recv($line,80);
!ocU6bU|5x3Ta0$line ne "" and $socket->send($line) or do {
-L%d:I8Lkd*T0
tRe(l;V9Y p5`2kg0# 如果没有什么可发送和接收的,中断连接51Testing软件测试网]A(juX x0l[!G
print $socket->fileno . ": disconnectedn";
$B}[n3N3i0$select->remove($socket);
Q'DD}lILX@5P u0$socket->close;
,X,`$tJ+C7L0};51Testing软件测试网,Pq3e hHTl-Q
}
r B7~%I@/D0}51Testing软件测试网 q(\,uM)w,s4s/b/T8Z
}
h2du4qgin7J)t0广播:51Testing软件测试网6yB6]?&G'}5O#d w
接下来的工作是把聊天信息发送给所有的用户(不光是你自己),也就是所谓"广播".
+^&K_7F4?CN~^K0我们可以用$select, 它new()或add()来返回所有给$select的sockets,从而得知"所有用户"到底是谁.我们来修改下程序:51Testing软件测试网b6y~y~4|q6S0~6]
$socket->recv($line,80);
$v3o6rt2p
s0if($line eq "") {
)\%w)Kw)T9qqh/[K E0print $socket->fileno . ": disconnectedn";51Testing软件测试网C j(B%b.`3_W
$select->remove($socket);51Testing软件测试网$d]??-Id
$socket->close;
I+q.X&s9lc ue0};51Testing软件测试网W5e0q|uJ:nTq7~I
my $socket;
;QK?/gc
SR
u0
8Z7MND"]"BKxq0# 向所有用户广播.如果send()失败了就关闭连接.
#N }`Y5P$Ci-R051Testing软件测试网nd$x-vx]mf5D
for $socket ($select->handles) {
,s`9{lQ'O7W5kd0next if($socket==$listen);51Testing软件测试网
}Ws p8AE$@
$socket->send($line) or do {51Testing软件测试网\&viBN+MR@9K/D
print $socket->fileno . ": disconnectedn";51Testing软件测试网)YS(^:YC
$select->remove($socket);
B5rS/p y/dh,Y#r0$socket->close;
A-y)e/X9Q7V0};51Testing软件测试网5S6h+Z7j(E
}51Testing软件测试网0F-h5c N%B~)o
51Testing软件测试网M g p6x ` x+P
下面是这个聊天程序的所有代码:
EOk#R\,p l0#!/usr/local/bin/perl -wT51Testing软件测试网h3T0IO R"B
require 5.002;
MG a(ZHM+JX:a0use strict;
'`sfon/S~0use IO::Socket;51Testing软件测试网9f9V-s\h9_A
use IO::Select;51Testing软件测试网)e?)S \-sn9V[_1^*v
#创建一个socket**端口
p;MbSn0my $listen = IO::Socket::INET->new(Proto => 'tcp',51Testing软件测试网^sw|M"OP
LocalPort => 2323,
,}o2T3D6SlZ:[0Listen => 1,
7`5C.oN^ tM$l0Reuse => 1) or die $!;51Testing软件测试网4q
v7PkH ykO
#$select只包含我们正在**的socket51Testing软件测试网G0OR)@yk!M
my $select = IO::Select->new($listen);51Testing软件测试网Tfi Pf0m
my @ready;
{ \[5k8u:yT6s6H@0# 等待51Testing软件测试网6W8qM*}0GZ
while(@ready = $select->can_read) {51Testing软件测试网_.dr
^)N~6R

ee-F#O)JTt7jK0my $socket;51Testing软件测试网*sZ0J)o8mh"U'@
51Testing软件测试网e2fi\oUo
# 处理每个准备好的端口
hf0VmZ9H w!][#S(_0for $socket (@ready) {51Testing软件测试网~F(a?m\)s ]
51Testing软件测试网 {V|)hJ0?
# 如果被**的端口准备好,接收一个新的连接51Testing软件测试网Q-IUevR
if($socket == $listen) {51Testing软件测试网+XS'{,M0z)NJTM6X
my $new = $listen->accept;
2q'V2i2b5ma%L0$select->add($new);
:hq*k3~]u@Of5s6T0print $new->fileno . ": connectedn";
"_Y.e dK,Z0} else {
V;i,j+M/r4r051Testing软件测试网b0v,Y4q2P#z*U
# 读入一行文字
|*K%k)_ g0# 如果recv()失败,关闭连接
~5Z*J*h%bi3a8N ` q0my $line="";51Testing软件测试网$R5]EI)v
$socket->recv($line,80);
q?J%b0PLn0if($line eq "") {
!x oG*WC@0u*U{:D/|0print $socket->fileno . ": disconnectedn";
0pv ?9KVU;y0$select->remove($socket);
%Uu]~FZ{&SYi0$socket->close;51Testing软件测试网m:qC:VO
};
|.L:h'x1C7RT0my $socket;
"x@l3bP0St#F0
9x2_^1X-{![&};K0# 向所有人广播,如果send()失败则关闭连接.51Testing软件测试网b Hc*m$Su"D`LWdx
for $socket ($select->handles) {51Testing软件测试网K-r&S2P Ur"j*~;wH
next if($socket==$listen);
8IP(l}X6X
Fp:o0$socket->send($line) or do {51Testing软件测试网$T2a6z H+s6qC5}
U
print $socket->fileno . ": disconnectedn";51Testing软件测试网c#txg
J)mI
$select->remove($socket);
\"^ L9l ];y'ECM0$socket->close;
0B6E*E"ntS!L$v0};51Testing软件测试网tn7dVOG(o
}
GU.YM7v0}51Testing软件测试网x+ym.T(rV$T,e3pMP
}
)|2Eq[TJ0}
3tk3~L(?'d8|/s051Testing软件测试网aO.k6e`o gV
1;51Testing软件测试网h2M?M2zf i

7^9y b6xS0我是谁?51Testing软件测试网Kf(X}oV J
我们的聊天程序还有一个问题,就是我们不知道是谁在说话.真正的聊天室服务器能让你知道谁是谁,在发言后面把他们的名字显示出来.51Testing软件测试网(o%D C ZC.Ma

Sl9\]VUT6S;O0如果我们只能在一个时刻做一件事情,请求一个handle的较为直接的程序代码就象这个样子:51Testing软件测试网G&D [vheZS
51Testing软件测试网8UH,X0Y]i T
my $new = $listen->accept;
6q5Scg:DeeJ1x0$select->add($new);51Testing软件测试网8aL/{0h cRh
print $new->fileno . ": connectedn";51Testing软件测试网3Y^#C4j2aI_
$new->write("choose a handle> ");
#oyANsviM0$handle[$new->fileno] = $new->recv;
;sh4gXFg0问题是,我们不能要服务器停下来等待用户输入,我们需要把用户在那里的信息保存下来,当一个用户在输入的时候,可以处理其他用户,当这个用户输入完了以后在回来.完成这些功能的代码可以分为两部分:
7cK0Of_U051Testing软件测试网HKg3P\:d(Qs
sub login {
(~ B E7bp"aV `0my($new) = @_;
zG(T0Z(~m@8q0$select->add($new);
bF`@ G-h!s!Df0print $new->fileno . ": connectedn";
xQa,FC/H0_0$new->write("choose a handle> ");
o&a[wN0save_where_we_are();
zx;KBT+[0}51Testing软件测试网;F?vO!O'{%J
51Testing软件测试网-\F5V1z-s
sub get_handle {51Testing软件测试网9M;s![DO.v_DP!e
my($socket) = @_;51Testing软件测试网J
B,CS|4F*X'?
$handle[$socket->fileno] = $socket->recv;51Testing软件测试网3FG9C*lL;D9b/T
}51Testing软件测试网 K7v q/X1`m

tv~VF0#!/usr/local/bin/perl -wT51Testing软件测试网$~y}O#m&wk
require 5.002;51Testing软件测试网W v.{z8z$_
use strict;
~`}['B*G R ev0use IO::Socket;
c6d+XphB$etZ8s0use IO::Select;51Testing软件测试网,S#yy&rfJ*N
51Testing软件测试网C4N&t{"p^9V _;kQ?
my $port = scalar(@ARGV)>0 ? $ARGV[0] : 2323;
H+}C H:~ME0
7N"`LsK0$| = 1;51Testing软件测试网4`[0]|6wuVbjM
my $listen = IO::Socket::INET->new(Proto => 'tcp',
cnn)W^t+eq0LocalPort => $port,
l9z"p0p#s}W,q0Listen => 1,
[2If9x&I;U'fW0Reuse => 1) or die $!;51Testing软件测试网2he
EG%fbC Qlrs
$ENV{'PATH'} = "/usr/bin";
btH,L
z8Gt"@] K0my $date = `date`;51Testing软件测试网E(H#B)NQM4kIP&V
warn "started on $port on $date";51Testing软件测试网\Z6R)^Vv2X7W
my $select = IO::Select->new($listen);51Testing软件测试网yQ5|?O`
my @chatters;
-hK#\6Y({E0Y\| _0
4W#re~u7?ciF0# 在win32中,注释掉下面这句51Testing软件测试网!G?"D'aLM
$SIG{'PIPE'} = 'IGNORE';51Testing软件测试网k`,m7oD
51Testing软件测试网*S%{]T"@3t i'@
m
my @ready;
-z$VS ?~"b&^O3u0while(@ready = $select->can_read) {51Testing软件测试网6Z ogIX#o.L x
print "going: ".join(', ',map {$_->fileno} @ready) . "n";
;G3jo^$r+C-\tz0L9Tn0my $socket;
5\rTf{i0for $socket (@ready) {
Jk6v1x{~0[0if($socket == $listen) {51Testing软件测试网?$k"PKg*yY
my $new_socket = $listen->accept;
N,NZ+O3X$\ k%|6l h0Chatter->new($new_socket, $select, @chatters);
a'u;Qyz8[0} else {
K{ G4X$[&Cu&R6^0my $chatter = $chatters[$socket->fileno];51Testing软件测试网Q4{
H/l.W%fH
if(defined $chatter) {

4D0fu
Tp$?0 

use IO::Socket;
O)m:_ J8o~-`0讲解:
4rw;\P9L*fw(K0IO::Socket下又有两个子类IO::Socket::INET与IO::Socket::UNIX，我们51Testing软件测试网3K$f-_6g:V%a&r9cU)e
现在用的当然是IO::Socket::INET了。
R\ux]n zM2uZ vB0—————————————————————————-
Sv kYEi0Notes:51Testing软件测试网(i(t#T_3F6n8k E
作为一个简单的客户端，它的步骤只需要先调用new方法，然后立刻就可以进行基本I/O操作(使用print与getline等基本I/O方法)了，最后只需调用close方法结束会话，那么整个SOCKET会话就算完成了。
]-o)o7g'~n,Om4i(@(}!`0—————————————————————————–
]%B
|:lfU+I1k f'U%E~0new()方法:
y? B%a$kc\(D+|0SOCKET对象变量=IO::Socket::INET->new(SOCKET变量值);51Testing软件测试网-h ~@+K(ud
实例:
[+EsPm ]0$sock=IO::Socket::INET->new(’192.168.1.2:23′);51Testing软件测试网"iV+j ul.} ow
讲解:
,q:ifxar"\ [0所有的PERL对象编程都把对象‘形象化’为某个变量，这里的SOCKET句柄
(ew%l&cm${.WJ0对象也不例外，调用此方法的返回值便为SOCKET对象变量了。这里使用参数为
*^^!M;eG"d*pIO0{0简单参数模式，在双引号或但引号内的socket地址结构为’主机IP或域名:端口
|Q)F[w ?:a:jA0号或服务名称’，也可以是’主机IP或域名:服务名称(端口号)’。51Testing软件测试网E,gUT#]'w
除了最简单的单参数调用外，new方法还有很多参数可以选择性调用的，下51Testing软件测试网 R0p\8Xy*B6I'g1s
maE
面就对这些参数作出一个简单的概括吧:51Testing软件测试网TJG%b:~O"wm4J
***********************************************************************51Testing软件测试网w#n$rP+L X2V
参数             描述                         值类型
v4]*@h-I8An8t p0±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±51Testing软件测试网^sc&m Q2vGJ
PeerAddr         远程主机的地址               主机地址[:端口或服务]
f)At~8b\0PeerHost         与PeerAddr相同
]pM g8D2N/DC/y c0PeerPort         远程端口或服务               端口或服务
B*M-E7R,RE0_^0LocalAddr        本地地址                     主机地址[:端口或服务]
b"z;s0NQ!g#H`~0LocalHost        与LocalAddr相同
Lh\|,fKK0LocalPort        本地端口                     端口或服务51Testing软件测试网V2W,Dg5m-U
Proto            所使用的协议                 协议名或协议号51Testing软件测试网G.Qa9R9P
Type             套接字类型                   SOCK_STREAM/SOCK_DGRAM…
W%n!s&@ri I'{;j0Listen           监听的队列长度               整形数
+r3T`;\XN0Reuse            用于避免重启时BIND时间间隙   布尔值51Testing软件测试网9p7G Lk~.y
Timeout          超时值                       整形数51Testing软件测试网)L5}Cn*EV#n
MultiHomed       用于连接多IP地址             布尔值51Testing软件测试网A Q)O&}6C5L!D7o8P;G
***********************************************************************51Testing软件测试网RP[&XF
参数PeerAddr(远程主机地址)与PeerHost(远程主机名)基本相同，调用方51Testing软件测试网o'Y%Cu"P(QX9iw Ayv
式也相同，其值格式除了标准的格式外，还可以加’:'号后再加端口或服务，这51Testing软件测试网hZ)jE-u{)vKN;\X5y
样的的话，后面的参数PeerPort(远程主机端口或服务)的值就无效了。51Testing软件测试网(sP$GF5t#w2Q7}b _
参数PeerPort(远程主机端口或服务)，其值的格式可以是端口，还可以是
1l6Z/k}-r0x
k(Ur0服务名，更可以是‘组合’，如:”telnet(23)”；当PeerAddr(远程主机地址)或51Testing软件测试网
P"[ySYHO
PeerHost(远程主机名)的值格式中指明了端口，再调用此参数时，此参数的值51Testing软件测试网1K1i1{&N7\}(V
无效。
2q+Gz
cA4Y.w0参数LocalAddr(本地主机地址)、LocalHost(本地主机名)、LocalPort(本51Testing软件测试网^_0k'z,Uy!|U
地主机端口或服务)之间的关系与调用方式与上面介绍的三个参数PeerAddr(远
/@A&LZL*Pr0程主机地址)、PeerHost(远程主机名)、PeerPort(远程主机端口或服务)相当。51Testing软件测试网-ng[ ?7t@B
还有一种情况，就是如果只定义了LocalPort(本地主机端口或服务)，而没
4B%@ZA9CF x%Y0有定义LocalAddr(本地主机地址)或LocalHost(本地主机名)，那IO::Socket会
vc!wG[1Yc0将本地机器的地址的值默认为INADDR_ANY通配符，也就是不定义本地主机的地
$o?Tv"ll0址值的话就定义为允许所有接口。
&{$Wf)_)eOJ0Proto(协议类型)的值可以用两种方式表示。一种是直接的字符串表示方51Testing软件测试网'c,gG-r4DOP8\w#N m9h
式，如:51Testing软件测试网lQv [{Wl6h
proto=>”tcp”
o_0Hy3`tj4f:{y:`0表示该协议类型为TCP。第二种方式就是直接使用协议号了，EGP—8、51Testing软件测试网3Ca8N'i3_J_
HMP—20、ICMP—1、RAW—255、RDP—27、RVD—66、TCP—6、
R1G0nJ9@/w E6v)q0UDP—17、XNS-IDP—22、其他—22、ALL—0；也可以使用getprotobyname51Testing软件测试网)cCJht
函数加协议名为参数调用获的该值，如:51Testing软件测试网!w t;ni xD8dz(bu
proto=>getprotobyname(’tcp’)51Testing软件测试网1HE_ r9BJB
该形式也表示该协议的类型为TCP。建议还是使用第一种方式比较方便。51Testing软件测试网,A T&dP7irdi#r
Type(套接字类型)的值通常为SOCK_STREAM(流套接字)、SOCK_DGRAM(数据51Testing软件测试网wf-^e&eSJ3ch
报套接字)、SOCK_RAW(原始套接字)等，不用说大家都知道，TCP用的是流套接51Testing软件测试网#Lb yuFgv
字，UDP用的是数据报套接字，构造IP包用的是原始套接字。51Testing软件测试网6BQuC0k0\i
如果上面的参数Proto(协议类型)与Type(套接字类型)的值都不定义的话，51Testing软件测试网Z$v-p\y
IO::Socket::INET就会通过程序中上下‘文’部分猜估它们的值，猜估不到
OI9I*|2m0的话就会默认为’tcp’。51Testing软件测试网Z
E y:{f+P#B?K
参数Listen(监听队列的长度)的值是一个整形数。它代表能接受的连接主
*V`&d&X4neL0机数量。如果您要构造服务端的话，Listen这个步骤是必不可少的。51Testing软件测试网(j&Z&rZX6t
调用Reuse(在绑定前设置SO_REUSEADDR)可以免去服务器在终止到重启之
F
Ez.jx8QP0间的所停留的时间。51Testing软件测试网C%n#W:L;n]2\,r
Timeout(超时值)以秒计算，用于连接中的connect与accept这两个步骤，51Testing软件测试网;N0Mq"Gf
调用目的是为了在连接远程主机不可到达时限制连接的挂起时间。
%v3J|q5i B0MultiHomed(用于连接多IP地址)的值是一个布尔值，当其值为真时，如果
@P[1Dj
D0要连接的主机拥有多个IP地址，则本机的new方法调用gethostbyname()穷举其
5N8R o6c B)ZW"m0所有IP地址，直到能成功调用为止。
;Q(tzv%TMP,k0从楼上的列表中可以看到IO::Socket与传统C库的Socket API接口在调用51Testing软件测试网"s!S
T@Xb9_
上有什么不同了:
#S H+j7F y5m01)控制范围不同。C库提供的接口在生成SOCKET句柄时只能控制的只有域、套接
Z bgyiuS:I!a0  字类型、协议这几个参数。而IO::Socket接口的创建语句(调用new方法)几乎
Q6KaZs/W6oAH0  能决定这个套接字的所有参数。51Testing软件测试网 q6Qo5c(m7fn
hZ
2)调用所使用的‘协议’定义部分不同。IO::Socket接口调用new方法中的参数
QN)z g$}Ro0  ’Proto’的值可以直接定义为’tcp’，这比传统C库的Socket定义更为简便。
Xn5lV`;?03)IO::Socket在定义时能直接定义本地主机地址、本地端口与远程主机地址、
f.?s]A
E0  远程端口在一个Socket中，如果是这种情况的服务端就无需调用accept了，
9B%x `x} T!E0  在I/O读写部分可以直接向这个Socket进行读写操作，而无需再定义远程客户51Testing软件测试网2Sx6w([ B^
  端的Socket了。51Testing软件测试网H#q(c l6Z
—————————————————————————–51Testing软件测试网rghpd
accept()方法:51Testing软件测试网j$Ev)U l
远程连接套接字对象变量=服务端套接字对象变量->accept();
bt*l+v6gGw)E"f0实例:
7a J"H.]0}E5?0$remote_sock=$sock->accept();
1BB;~mVx MIyM0讲解:
5Y#E&P%mB y0此方法的调用环境与传统C中SOCKET库调用原理一样，用于服务端的等待监51Testing软件测试网WE#q4zs'O
}Vk)J
听过程。无参数，返回值为远程连接的套接字对象变量。调用此方法也是一个
)tG$Su:UG4D'B;y(^W0生成套接字的过程，只不过此套接字为远程连接的套接字而已，它以对象变量
m4E _s;~/Ul"vN0方式存在，据有与本地套接字变量相同的属性与方法。

accept()方法在IO::Socket包里还提供另一种双返回值的调用方法:

(远程连接套接字对象变量,远程主机压缩地址变量)=服务端对象变量->accept();51Testing软件测试网B'|W_t:vDV
实例:
g sb%O5ZQ\z4X0($remote_sock,$remote_addr)=$sock->accept();51Testing软件测试网{K
BlR4E
讲解:
n:q6Sid|&]+T0与楼上一个返回值的调用方式基本相同，只是返回值中多了一个变量而已，
9h;G*j F6W~u0返回值中多了个变量——远程主机压缩地址变量。51Testing软件测试网f~0\g/k@
—————————————————————————–
q1}N7l^t"l0X0bind()方法:51Testing软件测试网rI5s0[ QQ
返回值变量=服务端套接字对象变量->bind(本地端口号,本地主机网络地址);
x!ZQ$|.\diSt0实例:51Testing软件测试网:r1Y Xy }~A:\yp
$result=$sock->bind(80,’127.0.0.1′);51Testing软件测试网'v] wnp1h!w _
讲解:
0Xk5^t"muk0bind方法用于在服务器端绑定主机的地址与端口。它使用的两个参数都为
jsA![&D9yb ux W0未压缩值，第一个为端口，第二个为主机的网络适配器接口地址(可以使用默认
"n1qz,mn5aH0的保留字INADDR_ANY，此保留字包括了主机的所有网络适配器接口地址，调用51Testing软件测试网A$PPEc7c[
它时，它会以穷举的方法穷举所有的网络适配器接口地址，直到找到为止)；返
a8^-`!Hcs0回值为布尔值，用于检测这次调用是否成功。51Testing软件测试网T;m{ S#q)M
—————————————————————————–51Testing软件测试网W+Jz#L}5T8A/i#`
connect()方法:
v:P WRp R7x3nk0返回值变量=套接字对象变量->connect(压缩地址变量);
.P0@*@'O{LqHk3E0实例:51Testing软件测试网"z!A]r_M*r
$result=$sock->connect($pack_addr);
O#aJx9[)o0讲解:
YWz
sR ]_ B0常用于TCP连接(也可用于UDP，不过不常用)，调用将向远程主机发送连接
u_(W3D
w"c?#g$Vi*Xm0请求。参数‘压缩地址变量’为sockaddr_in形式值，返回值为布尔值。若调用51Testing软件测试网w&T d.]@F._
`pY
此方法则建立IO::Socket::INET对象时不能赋予参数’PeerAddr’或’PeerHost’、51Testing软件测试网I[5zz3F|I_
‘PeerPort’，否则就会出现程序逻辑错误。

connect()方法也有双参数调用方式，使用起来更简单:

&}+i,Pn3E5dGK NW"k0返回值变量=套接字对象变量->connect(远程端口号,远程主机地址);
P/W7EMMR5Q[r0实例:
6]FP$q%Kvg0$result=$sock->connect($remote_port,$remote_host);
y4E|+~ M.m[$L@0讲解:
H?({:wu0调用的目的与楼上单参数的调用方式相当。第一个参数为远程需要连接的51Testing软件测试网:KWY#k*W4\a)M {5yf
主机的端口(等于new方法的参数’PeerPort’)，第二个参数为需要连接的主机
H1ZY$F~0地址(等于new方法的参数’PeerAddr’或’PeerHost’)，返回值为布尔值。
't9f5Z0TvR0—————————————————————————–
L:^@#|!k.L;f0listen()方法:51Testing软件测试网erQ^L-gX4s8W
返回值变量=套接字对象变量->listen(请求队列的最大长度值);

xTm!|#i H0实例:
U%]H5lm@0$result=$sock->listen(20);
/w/\Dz8]4N}r*x#X)E1i&wC0讲解:
:W+DhYNNLVy0TCP服务端不可缺少的方法。单参数，参数为此服务端接受远端请求队列
&\q` A4G3hk'v9k'@;t0的最大长度值，返回值为布尔值。调用此方法等同于在建立IO::Socket::INET51Testing软件测试网SNf ue
对象时定义参数’Listen’的值，所以若在new方法中定义了参数’Listen’再调51Testing软件测试网D2oO6G~Fn
用此方法的话就会出现‘程序定义冲突’这样的逻辑错误了。51Testing软件测试网h.~lw#q,f
—————————————————————————–51Testing软件测试网E?-gG;uu
shutdown()方法:51Testing软件测试网!w(j*{ uC wVdnk
返回值变量=套接字对象变量->shutdown(控制参数);51Testing软件测试网HeNB0KdI4M
实例:
q:IbgS7rS0$result=$sock->shutdown(2);51Testing软件测试网;{B0~)l2ph!pj
m
讲解:51Testing软件测试网4` B3rKR
此方法是除了close外的另一个关闭套接字对象的方法。单参数，参数值51Testing软件测试网F{G?I]g i:td
为外加参数定义，下为此方法的外加参数列表:
c"v!~
F AO]0***********************************************************************51Testing软件测试网N|M!iK
参数值                      描述51Testing软件测试网!K:t|P3sb)v
±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±51Testing软件测试网r.?#Z|-a+ma+gNZ/}$o
0                           关闭对象套接字的读操作
,pFF#]`)U)`01                           关闭对象套接字的写操作51Testing软件测试网'],l9p_)kg
2                           关闭对象套接字的所有操作51Testing软件测试网g6[&^q)w-]O(H
***********************************************************************
puzoB:u9eIa"l0其返回值为布尔值。51Testing软件测试网,T!@VK+j%I:MC!m+}
—————————————————————————–51Testing软件测试网V^$s({;A ?
send()方法:51Testing软件测试网+PfX-T.N`(z|&k
成功发送的数据值变量=套接字对象变量->send(发送数据,标志值,目标地址值);
t"l-i5qe3u0实例:51Testing软件测试网Z)y?}9_4o
$succ_bytes=$sock->send(’hihi\n’,0,$pack_host);51Testing软件测试网u{l&tN8s,@4x
讲解:
7NK\;X-j3o0send方法是专门为SOCKET发送数据的特殊方法，调用格式与参数格式也基
R1ng9k(n0c0本与C库的SOCKET API中的send函数相同。第一个参数是需要发送的数据；第二
} r.~H.Z$G!a U)r0参数是标志值，不添的话默认为0；第三个参数通常只用于UDP连接，是需要连
RIw^]0接的sockaddr_in格式地址值(注意:当第三个参数有必要一定要写时，第二个参
sCF0jbT7Y0数也一定要加上)；返回值为成功发送的数据值大小(以byte为单位)。
[)P$d([ m+QQ-M0—————————————————————————–
0h
VJ9W0pV~l0~6CF0recv()方法:
e?/qz#b6LG r?c3f q0压缩远程地址地址=套接字对象变量->recv(接收数据变量,接收数据值长度,标志值);51Testing软件测试网*p;P8v8P W~s)S
实例:51Testing软件测试网M-Op9r*sx9BA
$remote_pack_address=$sock->recv($mem,100,0);
T)zB/@-vAfto0讲解:
mZj\7x0recv方法是专门为SOCKET接收数据的特殊方法，调用格式与参数格式也与
C3D9l'H"r0N]6w8W0C库的SOCKET API基本一样。第一个参数是存放接收后的数据的变量值；第二个
Qg2Fb'N0参数是接收的数据的长度值；第三个参数是标志值，默认为0就可以了(省略此
h3~6b&v3?jhl0值不填，系统默认也为0)。
m)?wp&^}K0—————————————————————————–
,p$p/slR1T0===========================================================================================================51Testing软件测试网]kER+@*O7C*G
IO::Socket接口的常用方法就介绍完了，不过还有一个问题是需要注意的:
M!G%lV*{PNd@0作为一个简单的客户端，它的步骤只需要先调用new方法，然后立刻就可以进行基本I/O操作(使用print与getline
K5RpYxi py0等基本I/O方法)了，最后只需调用close方法结束会话，那么整个SOCKET会话就算完成了。51Testing软件测试网m%W@c.dW#kf