Perl Socket编程服务器端的相关问题急求

**iwork** · 10-08-27, 21:54

server端
#!/usr/bin/perl -w

use IO::Socket::INET;

$sock=IO::Socket::INET->new(
LocalHost=>'127.0.0.1',
LocalPort=>8080,
Proto=>'tcp',
Listen=>3,
Reuse=>1
)
or die "no socket:$!\n";

$sock=$sock->accept();

while(my $data=<$sock>){
print $data;
}

close $sock;

client端
#!/usr/bin/perl -w

use IO::Socket::INET;

$sock=IO::Socket::INET->new("127.0.0.1:8080")
or die "Error:$!\n";

while(1){
$_=<STDIN>;
if(/bye/){
close $sock;
exit;
}else{
$sock->print($_);
}
}

close $sock;

－－－－－－－－－－－－－－－－－
问题：
当我在客户端输入bye的时候。服务端也停止工作了。怎么能让服务端继续监听。

**jacuro** · 10-09-21, 14:17

要同时处理多个客户端，需要多进程/多线程/多路IO.
如果只是处理单个客户端，同时又不想server退出，应该是把accept放在while里面，同时不要使用exit,

10-08-27, 21:54	第 1 帖
iwork 注册会员注册日期: Aug 2010 帖子: 1 精华: 0	标题: Perl Socket编程服务器端的相关问题急求 server端 #!/usr/bin/perl -w use IO::Socket::INET; $sock=IO::Socket::INET->new( LocalHost=>'127.0.0.1', LocalPort=>8080, Proto=>'tcp', Listen=>3, Reuse=>1 ) or die "no socket:$!\n"; $sock=$sock->accept(); while(my $data=<$sock>){ print $data; } close $sock; client端 #!/usr/bin/perl -w use IO::Socket::INET; $sock=IO::Socket::INET->new("127.0.0.1:8080") or die "Error:$!\n"; while(1){ $_=<STDIN>; if(/bye/){ close $sock; exit; }else{ $sock->print($_); } } close $sock; －－－－－－－－－－－－－－－－－问题：当我在客户端输入bye的时候。服务端也停止工作了。怎么能让服务端继续监听。

欢迎来到LinuxSir.Org!
您还未登录，请登录后查看论坛，或者点击论坛上方的注册链接注册新账号。

10-09-21, 14:17	第 2 帖
jacuro 注册会员注册日期: Apr 2006 帖子: 80 精华: 0	要同时处理多个客户端，需要多进程/多线程/多路IO. 如果只是处理单个客户端，同时又不想server退出，应该是把accept放在while里面，同时不要使用exit,