我的第一个网络小程序，但卡壳了，请帮忙看看错在哪里？

流浪者

程序能够正常运行但不能够达到预期的目的，即如果两者的最后修改日期不同，就把服务端的文件传送到客户端。

server.pl

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. use Socket;
   
5. use constant PORT=>;"7986";
   
6. 
   
7. my $protocol=getprotobyname('tcp');
   
8. 
   
9. $SIG{'INT'}=sub{close SOCK;exit 0;};
   
10. 
    
11. socket(SOCK,AF_INET,SOCK_STREAM,$protocol) or die "SOCKET fail:$!\n";#建立SOCKET套接字
    
12. 
    
13. setsockopt(SOCK,SOL_SOCKET,SO_REUSEADDR,1) or die "Can't set SO_REUSEADDR:$!\n";
    
14. #设置服务器的IP地址可重复使用#
    
15. 
    
16. my $addr=sockaddr_in(PORT,INADDR_ANY);#生成套接字地址
    
17. 
    
18. bind(SOCK,$addr) or die "bind() fail:$!\n";#绑定地址
    
19. listen(SOCK,SOMAXCONN);#监听端口
    
20. 
    
21. warn "Waitting for incoming connect on port PORT......\n";
    
22. 
    
23. while(1)
    
24. {
    
25. next unless accept(SESSION,SOCK);#如果没有连接，进行下一循环
    
26. my $md_time=<SESSION>;；
    
27. if($md_time=~/time:/)
    
28. {
    
29. print SESSION "sending";
    
30. my $time=(stat("data.txt"))[9];#得到此文件的最后修改日期
    
31. last if($_ eq $time);#如果两者最后修改时间相同则退出
    
32. open(FILE,"data.txt") or die "open file error:$!\n";
    
33. foreach my $line (<FILE>;)
    
34. {
    
35. chomp $line;
    
36. print SESSION $line;
    
37. }
    
38. close FILE;
    
39. }
    
40. }
    
41. close SOCK;
    

复制代码

client.pl

1. 
   
2. #!/usr/bin/perl -w
   
3. use strict;
   
4. use Socket;
   
5. use IO::Handle;
   
6. 
   
7. my $ip=shift||"127.0.0.1";
   
8. my $protocol=getprotobyname('tcp');
   
9. my $port="7986";
   
10. 
    
11. my $host=inet_aton($ip);
    
12. 
    
13. my $sock_addr=sockaddr_in($port,$host);
    
14. socket(SOCK,AF_INET,SOCK_STREAM,$protocol) or die "SOCK fail:$!\n";
    
15. connect(SOCK,$sock_addr) or die "connect fail:$!\n";
    
16. 
    
17. #warn "connecting......\n";
    
18. 
    
19. SOCK->;autoflush();
    
20. 
    
21. if(-e "newdata.txt")
    
22. {
    
23. print SOCK "time:"."(stat(\"data.txt\"))[9]";#把此文件的最后修改时间传送给服务端软件
    
24. }
    
25. else{
    
26. print "no file";
    
27. print SOCK "time:";
    
28. }
    
29. my $state=<SOCK>;
    
30. chomp $state;
    
31. if($state!~/sending/){exit 0;}
    
32. 
    
33. warn "Reciving......";
    
34. 
    
35. while(<SOCK>;)
    
36. {
    
37. open(FILE,">;data.txt") or die "open file fail:$!\n";
    
38. chomp $_;
    
39. print FILE "$_"."\n";
    
40. }
    
41. close FILE;
    
42. close SOCK;     
    

复制代码

deathcult

<SESSION>;后面少了个";"

deathcult

还少了若干"}",
拜托下次帖仔细一点 ：）

流浪者

不好意思，太急了，没有注意看。
    请问是什么原因产生的不能达到预期的效果。

deathcult

我改动了一下，你看看符不符合要求 ：）
serv.pl

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. $| = 1;
   
5. use strict;
   
6. use Socket;
   
7. use constant PORT=>;"7986";
   
8. 
   
9. my $protocol=getprotobyname('tcp');
   
10. 
    
11. $SIG{'INT'}=sub{close SOCK;exit 0;};
    
12. socket(SOCK,AF_INET,SOCK_STREAM,$protocol) or die "SOCKET fail:$!\n";
    
13. setsockopt(SOCK,SOL_SOCKET,SO_REUSEADDR,1) or die "Can't set SO_REUSEADDR:$!\n";
    
14. my $addr=sockaddr_in(PORT,INADDR_ANY);
    
15. 
    
16. bind(SOCK,$addr) or die "bind() fail:$!\n";
    
17. listen(SOCK,SOMAXCONN);
    
18. 
    
19. warn "Waitting for incoming connect on port PORT......\n";
    
20. while(1)
    
21. {
    
22.         next unless accept(SESSION,SOCK);
    
23.         print "accept : \n";
    
24.         my $md_time=<SESSION>;;
    
25.         print "$md_time\n";
    
26. 
    
27.         if($md_time=~/time:/)
    
28.         {
    
29.                 print SESSION "sending";
    
30.                 my $time=(stat("a"))[9];
    
31.                 if($_ eq $time)
    
32.                 {
    
33.                         print "equal!\n";
    
34.                         last;
    
35.                 }
    
36.                 open(FILE,"a") or die "open file error:$!\n";
    
37.                 foreach my $line (<FILE>;)
    
38.                 {
    
39.                         chomp $line;
    
40.                         print SESSION $line;
    
41.                 }
    
42.         }
    
43. }
    

复制代码

deathcult

client.pl
我把从SOCK接到的信息打印到屏幕上了，你看看正确否，然后把注释去掉就可以了；）

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use Socket;
   
5. use IO::Handle;
   
6. 
   
7. $| = 1;
   
8. my $ip=shift||"127.0.0.1";
   
9. my $protocol=getprotobyname('tcp');
   
10. my $port="7986";
    
11. 
    
12. my $host=inet_aton($ip);
    
13. my $sock_addr=sockaddr_in($port,$host);
    
14. socket(SOCK,AF_INET,SOCK_STREAM,$protocol) or die "SOCK fail:$!\n";
    
15. connect(SOCK,$sock_addr) or die "connect fail:$!\n";
    
16. 
    
17. warn "connecting......\n";
    
18. SOCK->;autoflush();
    
19. 
    
20. if(-e "a")
    
21. {
    
22.         print SOCK "time:".(stat("a"))[9]."\n
    
23. }
    
24. else
    
25. {
    
26.         print "no file";exit 1;
    
27.         print SOCK "time:";
    
28. }
    
29. 
    
30. print "Reciving : \n";
    
31. while(<SOCK>;)
    
32. {
    
33.         exit 0 unless(/sending/);
    
34.         #open(FILE,">;data.txt") or die "open file fail:$!\n";
    
35.         #chomp $_;
    
36.         print  "$_\n";
    
37. }
    
38. 
    
39. close FILE;
    
40. close SOCK;
    
41. 
    

复制代码

apile

你這server有個缺點..一次只能處理一個client
如果同時處理多個client，要用fork去產生child process
....