9 lines
158 B
Perl
9 lines
158 B
Perl
#!/usr/bin/perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
while (my ($name, $passwd, $gid, $members) = getgrent) {
|
|
print "$gid: $name [$passwd] $members \n";
|
|
}
|