#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");
}
}