Perl getnetbyaddr 函数



  • 描述

    getnetbyaddr 在列表上下文中返回由ADDR指定的网络信息,并键入ADDRTYPE:($name,$aliases,$addrtype,$net)
  • 句法

    以下是此函数的简单语法-
    
    getnetbyaddr ADDR, ADDRTYPE
    
    
  • 返回值

    此函数在错误时返回undef,否则在标量上下文中返回网络地址,在错误时返回空列表,否则在列表上下文中返回网络记录(名称,别名,地址类型,网络地址)。
  • 示例

    以下是显示其基本用法的示例代码-
     
    use Socket;
    
    $iaddr = inet_aton("127.1"); # or whatever address
    ($name, $aliases, $addrtype, $net)  = getnetbyaddr($iaddr, AF_INET);
    
    print "Name = $name\n";
    print "Aliases = $aliases\n";
    print "Addrtype = $addrtype\n";
    print "Net = $net\n";
    
    
    尝试一下
    执行结果:
    
    Name = default
    Aliases = 
    Addrtype = 2
    Net = 0