perl setgrent()函数

perl setgrent()函数例子，setgrent()函数实例代码 - 集合（或重置）组项的设置开始枚举的。

语法

setgrent

定义和用法

集合（或重置）组项的设置开始枚举的。这个函数应该被调用之前第一次调用getgrent。

返回值

• Nothing

例子

试试下面的例子：

#!/usr/bin/perl -w
#by www.gitbook.net

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;
	
}