IO::Soceket服务器端发送的信息客户端接收不到，如何解

zmj9152

1. 
   
2. # 客户端程序
   
3. use IO::Socket;
   
4. $socket = IO::Socket::INET->new(
   
5.         #PeerAddr => '192.168.125.10',
   
6.         PeerAddr => '127.0.0.1',
   
7.         PeerPort => 1500,  
   
8.         Proto => 'tcp',  
   
9.         Type => SOCK_STREAM
   
10. )or die "Could not open port.\n";
    
11. 
    
12. unless (defined($pid = fork())){die "Can not find fork\n"};
    
13. 
    
14. if ($pid){  
    
15.         while($line = <>){
    
16.                
    
17.                 print $socket $line;
    
18.         }
    
19. }
    
20. 
    
21. 
    
22. # else{
    
23.         # while($line = <$socket>){
    
24.                 print "$line\n";
    
25.         # }#此段程序一运行，客户端也不能向服务器发信息了，如何解决呢？这个例子是从书上照搬的
    
26.        
    
27. # }
    
28. 
    
29. 
    
30. close($socket);
    
31. 
    
32. 
    
33. ############
    
34. #服务器端程序
    
35. use IO::Socket;
    
36. $server = IO::Socket::INET->new
    
37. (
    
38.         LocalPort => 1500,  
    
39.         Type =>SOCK_STREAM,
    
40.         Reuse => 1,
    
41.         Listen => 5
    
42. )or die 'Could not open port\n';
    
43. while ( $client = $server->accept()) {
    
44.     unless (defined($pid = fork())){die "Cannot find fork"};       
    
45.         if($pid){
    
46.                 while($line = <$client>){
    
47.                         print "$line";
    
48.                 }
    
49.         }
    
50.         else{
    
51.                 while($line = <>){
    
52.                                 print $client $line;
    
53.                 }
    
54.         }
    
55. }
    
56. close($server);

复制代码

laputa73

怀疑你抄错了。

华小飞_Perl

个人的理解是，客户端程序只是创建了客户端的套接字对象，而并没有调用它与服务端发起连接，所以只有套接字是无法与服务端交互的，个人见解可能有误，谢谢