这代码有什么 问题？socket

522468522

为什么打印的都是全开放端口？哪里错了吗

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. use IO::Socket::INET;
   
5. 
   
6. my $port = 1;
   
7. while($port < 100){
   
8.         my $socket = IO::Socket::INET->new(
   
9.                      PeeAddr => "localhost",
   
10.                      PeerPort => $port,
    
11.                      Proto         => 'tcp',
    
12.                      Timeout        => 1
    
13.         );
    
14.         if($socket){
    
15.                      print "$port Open!\n";
    
16.                      close($socket);
    
17.         }
    
18.         $port++;
    
19. }
    

复制代码

tmp

PeeAddr 应该写成PeerAddr 至于为什么写错了返回真,得去看看IO::Socket::INET的代码了.

522468522

回复 2# tmp

改回了也不行，，，，，

tmp

回复 3# 522468522

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use strict;
   
4. use IO::Socket::INET;
   
5. 
   
6. my $port = 1;
   
7. while($port < 100){
   
8.          my $socket = IO::Socket::INET->new(
   
9.                      PeerAddr => "localhost",
   
10.                      PeerPort => $port,
    
11.                      Proto         => 'tcp',
    
12.                      Timeout        => 1
    
13.          );
    
14.          if($socket){
    
15.                      print "$port Open!\n";
    
16.                      close($socket);
    
17.          }
    
18.          $port++;
    
19. }
    

复制代码

$ perl p.pl
25 Open!
80 Open!
$

522468522

回复 4# tmp

谢谢， 那我设置了超时， 为何$socket->recv()接收时还是会等 很久？难道new创建一个socket时， 那个timeout也接收无关？

tmp

那个timeout是connect的

522468522

回复 6# tmp

那请问接 收超时， 用哪个呢？

tmp

回复 7# 522468522

perldoc -f alarm

或者试试IO::Socket::Timeout, 我没用过这个

522468522

回复 8# tmp

这个我也查到了， 但我按照它说的来做，

1. 
   
2. #!/usr/bin/perl
   
3. use warnings;
   
4. use strict;
   
5. use IO::Socket::INET;
   
6. use IO::Socket::Timeout;
   
7. 
   
8. my $port = 1;
   
9. while($port < 100){
   
10.          my $socket = IO::Socket::INET->new(
    
11.                      PeerAddr => "localhost",
    
12.                      PeerPort => $port,
    
13.                      Proto         => 'tcp',
    
14.                      Timeout        => 1
    
15.          );
    
16.                  IO::Socket::Timeout->enable_timeouts_on($socket);
    
17.                  $socket->read_timeout(1);
    
18.          if($socket){
    
19.                      print "$port Open!\n";
    
20.                                          my $banner = <$socket>;
    
21.                                          print $banner, "\n";
    
22.                      close($socket);
    
23.          }
    
24.          $port++;
    
25. }

复制代码

返回:
Can't call method "read_timeout" on an undefined value at scan.pl line 17.
说明这个$socket是一个未定义的东西，，，，
我上面不是创好了$socket了吗， 怎么还未定义？
它说意思应是， read_timeout不能用于未定义的$socket吧。
如何解决？

send_linux

rrrr