Perl getservbyport 函数



  • 描述

    getservbyport 此函数转换协议PROTO的服务编号PORT,在标量上下文中返回服务名称,并在列表上下文中返回名称和相关信息-($name,$aliases,$port_number,$protocol_name)该调用基于/etc/services文件返回这些值。
  • 句法

    以下是此函数的简单语法-
    
    getservbyport PORT, PROTO
    
    
  • 返回值

    此函数在错误时返回undef,否则在标量上下文中返回服务编号,在错误时返回空列表,否则在列表上下文中返回服务记录(名称,别名,端口号,协议名称)。
  • 示例

    以下是显示其基本用法的示例代码-
     
    ($name, $aliases, $port_number, $protocol_name) = getservbyport(21, "tcp");
    print "Name = $name\n";
    print "Aliases = $aliases\n";
    print "Port Number = $port_number\n";
    print "Protocol Name = $protocol_name\n";
    
    
    尝试一下
    执行结果:
    
    Name = ftp
    Aliases = 
    Port Number = 21
    Protocol Name = tcp