编辑代码

use User::grent;
$gr = getgrgid(0)          or die "No group zero";

print "$gr\n";
if ($gr->name eq "root" && @{$gr->members} > -1) {
    print "gid zero name wheel, with other members";
}
print $gr->name;
$gr = getgr($whoever);  # Accepts both string or number.

use User::grent ':FIELDS';
getgrgid(0)                or die "No group zero";
if ($gr_name eq "wheel" && @gr_members > 1) {
    print "gid zero name wheel, with other members";
}