while( my @F = getgrent() ){ push @groups, [@F] }; endgrent(); @sec_gp = map($_->[2], grep($_->[3] =~ /\b$name\b/,@groups) ) );
--
perl -pe "s/\b;([st])/'\1/mg"
In reply to Re: To get the secondary groups for linux
by belg4mit
in thread To get the secondary groups for linux
by tbo
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |