sock中发送信息问题

522468522

看代码先，这是服务端:

1. #!c:\\perl\\bin\\perl.exe
   
2. use warnings;
   
3. use strict;
   
4. use Socket;
   
5. 
   
6. my $lport = 1234;
   
7. my $lhost = 'localhost';
   
8. socket(my $socket, AF_INET, SOCK_STREAM, getprotobyname('tcp'));
   
9. bind($socket, sockaddr_in($lport, inet_aton($lhost)));
   
10. listen($socket, 10);
    
11. accept(my $newsocket, $socket);
    
12. $newsocket->autoflush(1);
    
13. 
    
14. while(<STDIN>){
    
15.         print $newsocket $_;
    
16.         my $result = <$newsocket>;
    
17.         print "$.\."."$result";
    
18. }

复制代码

这是客户端:

1. #!c:\\perl\\bin\\perl.exe
   
2. use warnings;
   
3. use strict;
   
4. use Socket;
   
5. 
   
6. my $rhost = 'localhost';
   
7. my $rport = 1234;
   
8. socket(my $socket, AF_INET, SOCK_STREAM, getprotobyname('tcp'));
   
9. connect($socket, sockaddr_in($rport, inet_aton($rhost)));
   
10. $socket->autoflush(1);
    
11. while(<$socket>){
    
12.         chomp;
    
13.         my $result = `$_`;
    
14.         print $socket  "$result";
    
15. }

复制代码

问题是， 为什么只能发一次信息？
为什么收到的信息不完整？
比如我发送dir回去
回显只有一条， 另外的要按多几次回车才能接收，
但是， 好只能发送一次信息， 第二次发送时不能输入， 请问这是什么问题？

华小飞_Perl

似乎是循环有问题，把服务端的文件句柄改成1试试，让它持续监听。

522468522

回复 2# 华小飞_Perl

现在学PERL真麻烦， 没有交流的地方

华小飞_Perl

回复 3# 522468522

加qq吗（825989090），方便交流，也在学perl网络编程