怎么样判断远程端口是否开放？

nixiaoweihunter

我用Net::Telnet怎么样判断，或者有其他方法？

huang6894

直接调用系统命令可以吗？

http://bbs.chinaunix.net/forum.p ... mp;fromuid=29097174

syncpk99

仅适用tcp

1. #!/usr/bin/env perl -w
   
2. 
   
3. use strict;
   
4. use IO::Socket;
   
5. 
   
6. my ($PeerAddr, $PeerPort, $TimeOut, $sock) = @ARGV;
   
7. 
   
8. if (defined $TimeOut && ($TimeOut > 0)) {
   
9.         my $elapsed = 0;
   
10.         my $base = time;
    
11.         while ($elapsed < $TimeOut) {
    
12.                 $sock = IO::Socket::INET->new( PeerAddr => $PeerAddr,
    
13.                         PeerPort => $PeerPort,
    
14.                         Proto => 'tcp',
    
15.                         Timeout => $TimeOut);
    
16.                
    
17.                 last if $sock;
    
18.                 select(undef, undef, undef, 0.5);
    
19.                 $elapsed += 0.5;
    
20.                 $elapsed += (time - $base);
    
21.         }
    
22.         $sock or exit 1;
    
23.         close $sock;
    
24.         exit 0;
    
25. }
    
26. else {
    
27.         $sock = IO::Socket::INET->new( PeerAddr => $PeerAddr,
    
28.                 Proto => 'tcp',
    
29.                 PeerPort => $PeerPort) or exit 1;
    
30. 
    
31.         close $sock;
    
32.         exit 0;
    
33. }
    
34. 
    

复制代码

flw

用 IO::Socket 是个好办法。

这里还有个很有趣的模块，也许楼主用得着：
https://metacpan.org/pod/Net:ing

nixiaoweihunter

回复 4# flw
这个链接点不开，有一部分变成图片了


   

yeahnoob

回复 5# nixiaoweihunter


    我猜楼上的应该想说的是

1. Net::Ping

复制代码

这个模块

sjdy521

回复 6# yeahnoob


    ping哪里来的端口。。

yeahnoob

回复 7# sjdy521


    自己首先看看文档，好吧。

1. perldoc Net::Ping

复制代码

sjdy521

回复 8# yeahnoob


    多谢 看了下 看来这模块比它的名字管的事情更多

sjdy521

回复 8# yeahnoob


    多谢 看了下 看来这模块比它的名字管的事情更多