Mega Code Archive

 

Categories / Perl / System Functions

 

Getgrent function

#!/usr/bin/perl use warnings; use strict; while (my ($name, $passwd, $gid, $members) = getgrent) {     print "$gid: $name [$passwd] $members \n"; }