System Functions Perl

  1. Home
  2. Perl
  3. System Functions
  4. Get group name
#!/usr/bin/perl
use warnings;
use strict;
my @groups;
while (my $name = getgrent) {
    push @groups, $name;
}
print "Groups: @groups \n";