Thật không may, không có cách tốt, di động để làm điều này mà tôi biết. Nếu bạn cố phân tích / etc / nhóm, như những người khác đang đề xuất, bạn sẽ bỏ lỡ những người dùng có nhóm đó là nhóm chính của họ và bất kỳ ai đã được thêm vào nhóm đó thông qua một cơ chế khác ngoài các tệp phẳng UNIX (ví dụ LDAP, NIS, pam-pssql, v.v.).
Nếu tôi hoàn toàn phải tự làm điều này, có lẽ tôi sẽ làm điều ngược lại: sử dụng idđể có được các nhóm của mọi người dùng trên hệ thống (sẽ kéo tất cả các nguồn hiển thị cho NSS) và sử dụng Perl hoặc một cái gì đó tương tự để duy trì hàm băm bảng cho mỗi nhóm phát hiện ghi chú thành viên của người dùng đó.
Chỉnh sửa: Tất nhiên, điều này khiến bạn gặp phải một vấn đề tương tự: làm thế nào để có được danh sách mọi người dùng trên hệ thống. Vì vị trí của tôi chỉ sử dụng các tệp phẳng và LDAP, tôi chỉ có thể nhận danh sách từ cả hai vị trí, nhưng điều đó có thể đúng hoặc không đúng với môi trường của bạn.
Chỉnh sửa 2: Một người nào đó đã nhắc nhở tôi rằng getent passwdsẽ trả về danh sách tất cả người dùng trên hệ thống, bao gồm cả những người dùng từ LDAP / NIS / v.v., nhưng getent group vẫn sẽ nhớ những người dùng chỉ là thành viên thông qua mục nhập nhóm mặc định, vì vậy điều đó đã truyền cảm hứng cho tôi viết hack nhanh này.
#!/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";
}
}