Perl 的 gethostbyname 使用方法

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

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

# The syntax is (name,altnames,addrtype,len,addrs) = gethostbyname (inname); 


#!/usr/local/bin/perl 

$machine ="123.1.1.1"; 
if (!(($name,$altnames,$addrtype,$len,@addrlist) = gethostbyname ($machine))) { 
    die ("Machine name $machine not found.\n"); 
} 
print ("Equivalent addresses:\n"); 
for ($i = 0; $i < @addrlist; $i++) { 
    @addrbytes = unpack("C4",$addrlist[$i]); 
    $realaddr = join (".",@addrbytes); 
    print ("\t$realaddr\n"); 
} 

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

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