求助：IO:Socket error:Connection refused

Tiger_cn

1. 以下程序运行后  发现出现socket错误
   
2. ：
   
3.         IO:Socket  error:Connection refused
   
4. 不知道Perl如何调试和判断错误的原因？
   
5. 
   
6. #!/usr/bin/perl
   
7. # use IO::Socket to scan directories for websites.
   
8. use strict;
   
9. use IO::Socket;
   
10. if (@ARGV=0)
    
11.         {
    
12.         print "Please input a website url\n";
    
13.         }
    
14. my $url=inet_ntoa(inet_aton($ARGV[0])) or die "Can't resolve host.\n";
    
15. open(URL,"webdir") or die "can't open that webdir file";
    
16. my @webdir=<URL>;
    
17. 
    
18. foreach my $dir (@webdir)
    
19.         {
    
20.         chop($dir);
    
21.         my $sendbuf = "GET $dir HTTP/1.1\n"."Host:$ARGV[0]\n\n\n";
    
22. 
    
23. 
    
24.         my $socket = IO::Socket::INET->new(PeerAddr => $url,
    
25.                                 PeerPort => 80,
    
26.                                 Proto => "tcp",
    
27.                                 Type => SOCK_STREAM)
    
28.         or die "Can't connect to $ARGV[0]:$@\n";
    
29.         print $socket,$sendbuf;
    
30.         my $return=<$socket>;
    
31.         if($return=~/\b200\b/ or $return=~/\b401\b/)
    
32.         {
    
33.         print "Exist:$ARGV[0]$dir\n";
    
34.         close $socket;
    
35.         }
    
36.         close URL;
    
37.         print "\t ALL Done!Find it..Good Luck!";
    
38. 
    
39.         }

复制代码

apile

对方拒绝连线...

Tiger_cn

我知道是拒绝了
但是原因怎么查找，如何排错？

apile

1. 到你的Server上执行 telnet 1.1.1.1 1234
看有没有连上..
如果一直出现Trying...
表示
1.对方有防火墙..packet被直接delete了...
2.routing可能有问题, traceroute可以看出来断在哪一个点..

connection refuse:
表示对方的Server
1.reject 你的connection, 可能对方有设定ACL, 例如hosts.allow,hosts.deny
2.对方的Server启动有问题..所以拒绝所有连线...

没什麽特别的..就是一些简单的网络连线的基本知识罢了...