Mega Code Archive

 

Categories / Perl / System Functions

 

Get group name

#!/usr/bin/perl use warnings; use strict; my @groups; while (my $name = getgrent) {     push @groups, $name; } print "Groups: @groups \n";