perl获取远端服务器所有IP

sun9527

我太菜没能实现，恳请牛人解答。谢谢！

tmp

1. 
   
2. 
   
3. #!/usr/bin/perl
   
4. 
   
5. require Socket;
   
6. 
   
7. my $hostname = "hp.com";
   
8. 
   
9. my ($a, $b, $c, $d, @addrs) = gethostbyname ( $hostname );
   
10. 
    
11. 
    
12. for $addr ( @addrs ) {
    
13.     print Socket::inet_ntoa( $addr ), "\n";
    
14. }
    
15. 
    

复制代码

liyangole

你可以 利用IO::Socket 模块，比较复杂，查看仙子的帖子有介绍。
也可以利用Expect模块，登陆进行获取。
实现方式挺多啦，另外查看IP地址，命令可以为：ifconfig|grep "inet addr:"| awk  '{print $2}'|awk -F: '{print $2}'|grep -v "127.0.0.1"

liyangole

回复 2# tmp


    路上的方法 值得试试啦 顶

sun9527

多谢多谢！