Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

(MeowChow) Re3: 2048 character limit

by MeowChow (Vicar)
on Jun 06, 2002 at 08:38 UTC ( [id://172108] : note . print w/replies, xml ) Need Help??

in reply to Re: Re: 2048 character limit
in thread 2048 character limit

Try running this:
#!/usr/bin/perl -w use strict; open my $fh_group, "</etc/group" or die "Cannot open group file"; while (<$fh_group>) { chomp; my ($grp, $pwd, $gid, $users) = split /:/; if ($grp eq $ARGV[0]) { my @users = split /,/, $users; print join $/, @users; } }
Save it to a file, and run it with a command line argument of the group you'd like to check membership for, for example:
perl steel
               s aamecha.s a..a\u$&owag.print