Perl实现的C/S模式的本地端口发送与监听

用Perl写的一个C/S模式的:

client端向本机端口消息发送消息，

server端监听本机端口，接收并响应client发送的消息。

也可以说是两进程间的socket通信。

实现很简单，但能稳定而良好地工作，

稍作改造，加些功能后，能用在很多类似需要C/S工作模式的场合。

server端代码:

1. #! /usr/bin/perl
   
2. 
   
3. ###############################################################################
   
4. # \File 
   
5. # tcp_server.pl
   
6. # \Descript
   
7. # listen to local port
   
8. ###############################################################################
9. use IO::Socket::INET;
   
10. 
    
11. # 5277为监听端口
12. my $sock_listen = IO::Socket::INET->new(
    
13.       LocalHost => '127.0.0.1',
    
14.       LocalPort => 5277,
    
15.       Proto => 'tcp',
    
16.       Listen => 3,
    
17.       Reuse => 1,)
    
18. or die "no socket: $!";
    

 while(1)

 {

1.   my $sock_recv = $sock_listen->accept();

1.   while ($data = <$sock_recv>)
   
2.   {
   
3.     print $data,"\n";
   
4.   }
   
5. 
   
6.   close $sock_listen;
7. }

client端代码:

1. #! /usr/bin/perl
   
2. 
   
3. ###############################################################################
   
4. # \File
   
5. # tcp_client.pl
   
6. # \Descript
   
7. # send message to server
   
8. ###############################################################################
   
9. 
   
10. use IO::Socket::INET;
    
11. 
    
12. my $sock_connect = IO::Socket::INET->new('127.0.0.1:5277');
    
13. die "Socket could not be created. Because$!\n" unless $sock_connect;
    
14. 
    
15. my $msg = "Hello, server.";
    
16. $sock_connect->print($msg);
    
17. close $sock_connect;

测试通过;