仙子教你动手写socket~~

兰花仙子

1. # cat svr.pl
   
2. use strict;
   
3. use IO::Socket;
   
4. 
   
5. my $listen_socket = IO::Socket::INET->new(
   
6.                                            LocalPort => 1234,
   
7.                                            Listen    => SOMAXCONN,
   
8.                                            Proto     => 'tcp',
   
9.                                            Reuse     => 1,
   
10.                                            Timeout   => 30,
    
11.                                          );
    
12. 
    
13. die "can't create socket: $@\n" unless defined $listen_socket;
    
14. 
    
15. 
    
16. while ( 1 )  { # running on frontend
    
17.     next unless my $sock = $listen_socket->accept;
    
18.     my $peer_host = $sock->peerhost();
    
19. 
    
20.     my $mesg = '';
    
21.     while (<$sock>) {
    
22.         $mesg .= $_;
    
23.     }
    
24. 
    
25.     print $sock "welcome $peer_host, just echo back:\n";
    
26.     print $sock $mesg;
    
27.     $sock->close or die "can't close established socket $!\n";
    
28. 
    
29.     select(undef, undef, undef, 0.25);
    
30. }
    
31. 
    
32. 
    
33. 
    
34. # cat cli.pl
    
35. use strict;
    
36. use IO::Socket;
    
37. 
    
38. my $sock=IO::Socket::INET->new(PeerAddr => '127.0.0.1',
    
39.                                PeerPort => 1234,
    
40.                                Proto    => 'tcp')
    
41.          or die $@;
    
42.    
    
43. print $sock "hello first line\n";
    
44. print $sock "hello second line\n";
    
45. 
    
46. $sock->shutdown(1); # tell peer I have finished writing
    
47. 
    
48. print while <$sock>; # read from socket and print
    
49. 
    
50. $sock->close or die $!;

复制代码

# perl svr.pl &
[1] 16704

# perl cli.pl
welcome 127.0.0.1, just echo back:
hello first line
hello second line

很久没写socket了~~
但用perl写socket是超级简单呀，顺手就搞定~
当然，复杂的svr/cli要考虑很多东西...
见偶的用Perl写一套监控系统，或Lincoln的书，或POE相关source.

【更新了一下：客户端当然可以一次发送多个命令。
另一般为了非阻塞，socket write和read可以分2个进程来做。】

[ 本帖最后由 兰花仙子 于 2009-11-26 21:14 编辑 ]

ziggler

代码量不是很大

yangds_cu

貌似我这里有一本

tommydu

很强大~

[ 本帖最后由 tommydu 于 2009-11-25 19:06 编辑 ]

netrookie

新手， 还在看书， 学习……
发现仔细是一个非常重要的素质！

撒哈拉里的鱼

支持，又开始出来渡人了啊。
我用Perl写过两个比较好的系统，现在y和a公司还在用。

hitsubunnu

原帖由 撒哈拉里的鱼 于 2009-11-25 21:37 发表
支持，又开始出来渡人了啊。
我用Perl写过两个比较好的系统，现在y和a公司还在用。

话都说成这样了
就拿出来 看看吧

gaochong

是啊，实现什么功能？

dahe_1984

仙子很有才。

dahe_1984

好像只有仙子有个MM，其他的MM呢？