我的socket哪写错了?

wsliuhao

server端:

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use IO::Socket;
   
6. 
   
7. my $port = '3000';
   
8. my $sock = IO::Socket::INET->new(
   
9.     Listen => SOMAXCONN,
   
10.     LocalPort => $port,
    
11.     Timeout => 60,
    
12.     Reuse => 1,
    
13.     Proto => 'tcp')  or die "Create Server ERROR:$!\n";
    
14. 
    
15. warn "Starting server on port $port...\n";
    
16. 
    
17. while(1){
    
18.       next unless my $session = $sock->accept;
    
19.       defined (my $pid = fork()) or die "can't fork\n";
    
20. 
    
21.       if($pid == 0){
    
22.          $sock->close;
    
23.           $session->autoflush(1);
    
24. 
    
25.           my $line = <$session>;
    
26.           print "$line\n";
    
27.          
    
28.           print $session "Nice to meet you,too!\n";
    
29.           close $session;
    
30.           exit 0;
    
31.       }else{
    
32.             print "Forking child $pid\n";
    
33.       }
    
34. }
    
35. close $sock;
    

复制代码

client端:

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use IO::Socket;
   
6. 
   
7. my $addr = '127.0.0.1';
   
8. my $port = '3000';
   
9. my $buf;
   
10. 
    
11. my $sock = IO::Socket::INET->new(
    
12.     PeerAddr =>$addr,
    
13.     PeerPort =>$port,
    
14.     Proto => 'tcp') or die "Can't connect: $!\n";
    
15. 
    
16. print $sock "Nice to meet you!\n";
    
17. $buf = <$sock>;
    
18. print "$buf\n";
    
19. close $sock;
    

复制代码

1.server首先建立监听
2.启动client向server发送个"Nice to meet you!"消息
3.server受到后向client回复个"Nice to meet you,too!"消息

但没有实现,
现在server窗口里有:Starting server on port 3000...
并且收到client发来的"Nice to meet you!"
可为什么client窗口里没有任何返回呢,应该有"Nice to meet you,too!"呀.
大家帮我看看哪写错了,多谢.

[ 本帖最后由 wsliuhao 于 2007-6-21 08:57 编辑 ]

tmp

server:
perl区分大小写:

    listen => SOMAXCONN,
    Localport => $port,

   defined (my $pid = fock()) or die "can't fork\n";   #是不是该写成die "can't fock\n"还是....?

    while(my $line = <$session>){
                print "$line\n";
     }  这样他就卡在这了,不往下走了,   直接  $line=<$session>;

client:

    Peeraddr =>$addr,
    Peerport =>$port,

wsliuhao

大家再帮我看看啦,这个应该是最简单的C/S交互的例子啦,居然通不过,怎么理论和实践不一致呢???

tmp

...你把我说的那几个地方改改就可以了，因为我发帖前就试了，不过改好的代码删了，
LocalPort , PeerPort, PeerAddr, 看明白了吗？

wsliuhao

谢谢tmp,的确是没有大写的原因!
但没有大写的时候,我在使用new方法创建一个$sock对象后print $sock,也是返回了一个IO::Socket::INET对象的引用啊,和改成大写后没有任何区别,在我本地执行print的结果都是IO::Socket::INET=GLOB(0x1bf64b0).
可是现实情况是没有大写的(PeerAddr 写成了Peeraddr之类)建立的$sock不能互相传递消息,何解??


还有我现在改成大写之后,只有server能受到client发的消息,而client没有得到server的回应,这是怎么回事?

wsliuhao

server 向client 发送数据使用的句柄(文件描述符?) 是最开始用new建立的?
还是后期listen时accept后建立的?

flw

有例子不看，在这里瞎折腾什么呀。
perldoc perlipc 看 Socket 一节。

wsliuhao

呵呵,在你看来当然是'瞎折腾了',这个词很伤人心的..