System Functions Perl

  1. Home
  2. Perl
  3. System Functions
  4. Getgrent function
#!/usr/bin/perl
use warnings;
use strict;
while (my ($name, $passwd, $gid, $members) = getgrent) {
    print "$gid: $name [$passwd] $members \n";
}