perl实例-gethostbyname从/etc/hosts中匹配主机名

#!/usr/local/bin/perl
#edit: www.jb200.com

$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$realaddrn");
}

#!/usr/bin/perl -w

use Sys::hostname;

$host = hostname();

print "Network host name is: $hostn";