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

wangxiaomo521

1. server端
   
2. #!/usr/bin/perl -w
   
3. 
   
4. use IO::Socket::INET;
   
5. 
   
6. $sock=IO::Socket::INET->new(
   
7. LocalHost=>'127.0.0.1',
   
8. LocalPort=>8080,
   
9. Proto=>'tcp',
   
10. Listen=>3,
    
11. Reuse=>1
    
12. )
    
13. or die "no socket:$!\n";
    
14. 
    
15. $sock=$sock->accept();
    
16. 
    
17. while(my $data=<$sock>){
    
18. print $data;
    
19. }
    
20. 
    
21. close $sock;
    
22. 
    
23. client端
    
24. #!/usr/bin/perl -w
    
25. 
    
26. 
    
27. use IO::Socket::INET;
    
28. 
    
29. 
    
30. $sock=IO::Socket::INET->new("127.0.0.1:8080")
    
31. or die "Error:$!\n";
    
32. 
    
33. while(1){
    
34. $_=<STDIN>;
    
35. if(/bye/){
    
36. close $sock;
    
37. exit;
    
38. }else{
    
39. $sock->print($_);
    
40. }
    
41. }
    
42. 
    
43. close $sock;
    
44. 
    
45. －－－－－－－－－－－－－－－－－
    
46. 问题：
    
47. 当我在客户端输入bye的时候。服务端也停止工作了。怎么能让服务端继续监听。

复制代码

xiaobing927

参考Perl网络编程，accept()应放在循环里，这样即使while 的条件是undef，accept()方法还可以继续等待client

027xiatian

LZ要看书呀