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

iwork

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

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