Infelizmente, não há uma maneira boa e portátil de fazer isso que eu conheça. Se você tentar analisar o / etc / group, como outros sugerem, sentirá falta dos usuários que têm esse grupo como grupo principal e de quem foi adicionado a esse grupo por um mecanismo diferente dos arquivos simples do UNIX (por exemplo, LDAP, NIS, pam-pgsql, etc.).
Se eu tivesse que fazer isso sozinho, provavelmente faria o inverso: use idpara obter os grupos de todos os usuários no sistema (que atraem todas as fontes visíveis para o NSS) e use Perl ou algo semelhante para manter um hash tabela para cada grupo descoberto, observando a associação desse usuário.
Edit: Obviamente, isso deixa você com um problema semelhante: como obter uma lista de todos os usuários do sistema. Como minha localização usa apenas arquivos simples e LDAP, posso obter uma lista dos dois locais, mas isso pode ou não ser verdadeiro para o seu ambiente.
Edit 2: Alguém de passagem lembrou-me que getent passwdretornará uma lista de todos os usuários do sistema, incluindo os do LDAP / NIS / etc., Mas getent group ainda assim sentirei falta dos usuários que são membros apenas através da entrada de grupo padrão, o que me inspirou a escreva este hack rápido.
#!/usr/bin/perl -T
#
# Lists members of all groups, or optionally just the group
# specified on the command line
#
# Copyright © 2010-2013 by Zed Pobre (zed@debian.org or zed@resonant.org)
#
# Permission to use, copy, modify, and/or distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#
use strict; use warnings;
$ENV{"PATH"} = "/usr/bin:/bin";
my $wantedgroup = shift;
my %groupmembers;
my $usertext = `getent passwd`;
my @users = $usertext =~ /^([a-zA-Z0-9_-]+):/gm;
foreach my $userid (@users)
{
my $usergrouptext = `id -Gn $userid`;
my @grouplist = split(' ',$usergrouptext);
foreach my $group (@grouplist)
{
$groupmembers{$group}->{$userid} = 1;
}
}
if($wantedgroup)
{
print_group_members($wantedgroup);
}
else
{
foreach my $group (sort keys %groupmembers)
{
print "Group ",$group," has the following members:\n";
print_group_members($group);
print "\n";
}
}
sub print_group_members
{
my ($group) = @_;
return unless $group;
foreach my $member (sort keys %{$groupmembers{$group}})
{
print $member,"\n";
}
}