Perl endservent 函数



  • 描述

    endservent 告诉系统您不再期望使用 getservent 从服务文件中读取条目。
  • 句法

    以下是此函数的简单语法-
    
    endservent
    
    
  • 返回值

    此函数不返回任何值。
  • 示例

    以下是显示其基本用法的示例代码-
     
    while(($name, $aliases, $port_number,
       $protocol_name) = getservent()) {
    
       print "Name = $name\n";
       print "Aliases = $aliases\n";
       print "Port Number = $port_number\n";
       print "Protocol Name = $protocol_name\n";
    }
    
    setservent();   # Rewind the database;
    
    while(($name, $aliases, $port_number,
       $protocol_name) = getservent()) {
    
       print "Name = $name\n";
       print "Aliases = $aliases\n";
       print "Port Number = $port_number\n";
       print "Protocol Name = $protocol_name\n";
    }
    
    endservent();  # Closes the database;