无涯教程-Perl - setgrent函数

64 阅读1分钟

描述

此功能将枚举设置(或重置)到组条目集的开头。该函数应在第一次调用getgrent之前调用。

语法

以下是此函数的简单语法-

setgrent

返回值

此函数不返回任何值。

以下是显示其基本用法的示例代码-

#!/usr/bin/perl -w

while( ($name,$passwd,$gid,$members)=getgrent() ) {
   print "Name =$name\n";
   print "Password =$passwd\n";
   print "GID =$gid\n";
   print "Members =$members\n";
}

setgrent();    # Set the beginnging of the group database;

print "Again reading /etc/passwd file\n";
while( ($name,$passwd,$gid,$members)=getgrent() ) {
   print "Name =$name\n";
   print "Password =$passwd\n";
   print "GID =$gid\n";
   print "Members =$members\n";
}

endpwent;  #claose the database;

执行上述代码后,将产生以下输出-

Name =root
Password =x
GID =0
Members =root
Name =bin
Password =x
GID =1
Members =root bin daemon
Name =daemon
Password =x
GID =2
Members =root bin daemon
Name =sys
Password =x
GID =3
Members =root bin adm
Name =adm
Password =x
GID =4
Members =root adm daemon
.
.
.
Name =kvm
Password =x
GID =36
Members =qemu
Name =qemu
Password =x
GID =107
Members =
Name =com
Password =x
GID =501
Members =
Name =webgrp
Password =x
GID =502
Members =com
Name =railo
Password =x
GID =495
Members =

参考链接

www.learnfk.com/perl/perl-s…