25 lines
667 B
Perl
25 lines
667 B
Perl
#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");
|
|
}
|
|
} |