Mega Code Archive

 

Categories / Perl / System Functions

 

The Perl function getgrent retrieves an item from the user group file

#The syntax is (gname, gpasswd, gid, gmembers) = getgrent;  #!/usr/local/bin/perl  while (($gname, $gpasswd, $gid, $gmembers) = getgrent) {      $garray{$gname} = $gmembers;  }  foreach $gname (sort keys (%garray)) {      print ("Userids belonging to group $gname:\n");      $gmembers = $garray{$gname};      $userids = 0;      while (1) {          last if ($gmembers eq "");          ($userid, $gmembers) = split (/\s+/, $gmembers, 2);          printf (" %-20s", $userid);          $userids++;          if ($userids % 3 == 0) {              print ("\n");          }      }         if ($userids % 3 != 0) {          print ("\n");      }  }