Nice solution; personally I prefer the OO User::pwent and User::grent:
use warnings; use strict; use feature qw/say/; use User::grent; use User::pwent; my $grnam = shift; die "Usage: $0 GROUPNAME\n" unless length $grnam; my $group = getgrnam $grnam; die "Group '$grnam' not found\n" unless defined $group; say "<$_>" for @{$group->members}; while ( my $pwent = getpwent ) { say "[",$pwent->name,"]" if $pwent->gid == $group->gid; }
In reply to Re^2: Listing system group members
by haukex
in thread Listing system group members
by mldvx4
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |