getnetbyname NAME |
在列表上下文中,返回的信息由名称指定的网络
($name, $aliases, $addrtype, $net)
在标量上下文的错误返回undef,否则返回网络地址。
在列表上下文上的错误返回空列表,否则网络备案中 (name, aliases, address type, network address).
试试以下例子:
#!/usr/bin/perl #by www.gitbook.net use Socket; ($name, $aliases, $addrtype, $net) = getnetbyname("loopback"); print "Name = $name\n"; print "Aliases = $aliases\n"; print "Addrtype = $addrtype\n"; print "Net = $net\n";