Perl 的 gethostbyaddr 使用方法介绍

下面是编程之家 jb51.cc 通过网络收集整理的代码片段。

编程之家小编现在分享给大家，也给大家做个参考。

# The syntax is (name,altnames,addrtype,len,addrs) = 
# gethostbyaddr (inaddr,inaddrtype); 

#!/usr/local/bin/perl 

$machine ="123.1.1.1"; 
@bytes = split (/\./,$machine); 
$packaddr = pack ("C4",@bytes); 
if (!(($name,$altnames,$addrtype,$len,@addrlist) = gethostbyaddr ($packaddr,2))) { 
    die ("Address $machine not found.\n"); 
} 
print ("Principal name: $name\n"); 
if ($altnames ne "") { 
    print ("Alternative names:\n"); 
    @altlist = split (/\s+/,$altnames); 
    for ($i = 0; $i < @altlist; $i++) { 
        print ("\t$altlist[$i]\n"); 
    } 
} 

以上是编程之家(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。