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