Fonction Perl setgrent

La description

Cette fonction définit (ou réinitialise) l'énumération au début de l'ensemble d'entrées de groupe. Cette fonction doit être appelée avant le premier appel à getgrent.

Syntaxe

Voici la syntaxe simple de cette fonction -

setgrent

Valeur de retour

Cette fonction ne renvoie aucune valeur.

Exemple

Voici l'exemple de code montrant son utilisation de base -

#!/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;

Lorsque le code ci-dessus est exécuté, il produit le résultat suivant -

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  =