（新人问题）关于perl中 , socket持续连接问题

522468522

写了一个客户与服务器， 如下，
我想问一下， 如果我想这个service与client交互， 也就是可以相互发送信息(像聊天), 要怎么写？

service.pl

1. #!c:\\perl\\bin\\perl.exe
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. use Socket;
   
6. use POSIX ":sys_wait_h";
   
7. 
   
8. my $socket_close = 0;
   
9. $SIG{CHLD} = sub{$socket_close++};
   
10. my $lport = 4444;
    
11. my $laddr = sockaddr_in($lport, INADDR_ANY);
    
12. #压缩地址
    
13. 
    
14. socket(my $socket, AF_INET, SOCK_STREAM, getprotobyname('tcp'));
    
15. #创一个SOCKET
    
16. 
    
17. #绑定
    
18. bind($socket, $laddr);
    
19. listen($socket, 10);
    
20. print "Waiting....\n";
    
21. accept(my $new_socket, $socket);
    
22. $new_socket->autoflush(1);
    
23. print "New client connect success!\n";
    
24. print $new_socket "Welcome!";
    

复制代码

client:

1. #!c:\\perl\\bin\\perl.exe
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. use Socket;
   
6. 
   
7. my $rhost = '127.0.0.1';
   
8. my $rport = 4444;
   
9. 
   
10. socket(my $socket, AF_INET, SOCK_STREAM, getprotobyname('tcp'));
    
11. $rhost = inet_aton($rhost);
    
12. my $target = sockaddr_in($rport, $rhost);
    
13. #connect($socket, sockaddr_in($rport,inet_aton($rhost)));
    
14. connect($socket, $target);
    
15. $socket->autoflush(1);
    
16. my $input = <$socket>;
    
17. print $input;
    

复制代码