我的socket程序出了点小问题 急等高手~

┏.璇轉

我做的Socket的两个简单的测试程序 客户端和服务器  
问题就是:客户端只能接受一次服务器的信息,重新运行以后就无法收到了
问题原因是什么呢?  高手们帮我改下,优化一下程序吧
#!usr/bin/perl
#客户端

use IO::Handle;
use Socket;

$port=2001;
$host='10.0.0.191';
$packhost=inet_aton($host);
$address=sockaddr_in($port,$packhost);

socket(CLIENT,PF_INET,SOCK_STREAM,6);
connect(CLIENT,$address);
CLIENT->autoflush(1);  #跳过I/O代码进入缓存的步骤，直接输出。

$msg_in=<CLIENT>;
print "INmsg_in\n";
close CLIENT;
exit 1;

.....................................................................................

#!usr/bin/perl
#服务端

use IO::Handle;
use Socket;

$port=2001;
$address=sockaddr_in($port,INADDR_ANY);
socket(SERVER,PF_INET,SOCK_STREAM,6);
bind(SERVER,$address);
listen(SERVER,10);

while(1){
next unless (accept(CLIENT,SERVER));
CLIENT->autoflush(1);  #跳过I/O代码进入缓存的步骤，直接输出。
print CLIENT "WHAT DO YOU WANT?\n";
close CLIENT;}

close SERVER;
exit 1;

我想在他们里面加个sleep语句,应该怎么加呢?

flw

我刚才试过了，在我的机器上不管运行多少次都是对的。
你再找找别的原因。

┏.璇轉

你把server关掉  重新开  再运行client  就接收不到信息了,  你一直开着server运行client无论多少次确实都管用,只要关一次再开,就不管用了

兰花仙子

原帖由 ┏.璇轉 于 2006-9-1 15:39 发表
你把server关掉  重新开  再运行client  就接收不到信息了,  你一直开着server运行client无论多少次确实都管用,只要关一次再开,就不管用了

没仔细看，不过建议你用IO::Socket并在new时加上这个参数：

Reuse     => 1,

它允许本地端口重用。

┏.璇轉

谢谢你   
好的我试试先