|
# The syntax is (gname, gpasswd, gid, gmembers) = getgrnam (name);
#!/usr/local/bin/perl
$name = "grp1";
if (!(($gname, $gpasswd, $gid, $gmembers) = getgrnam ($name))) {
die ("Group $name does not exist.\n");
}
$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");
}
|