programming-examples/perl/SystemFunction/The Perl function getgrent retrieves an item from the user group file.pl

#The syntax is (gname, gpasswd, gid, gmembers) = getgrent; 


#!/usr/local/bin/perl 

while (($gname, $gpasswd, $gid, $gmembers) = getgrent) { 
    $garray{$gname} = $gmembers; 
} 
foreach $gname (sort keys (%garray)) { 
    print ("Userids belonging to group $gname:\n"); 
    $gmembers = $garray{$gname}; 
    $userids = 0; 
    while (1) { 
        last if ($gmembers eq ""); 
        ($userid, $gmembers) = split (/\s+/, $gmembers, 2); 
        printf (" %-20s", $userid); 
        $userids++; 
        if ($userids % 3 == 0) { 
            print ("\n"); 
        } 
    }    
    if ($userids % 3 != 0) { 
        print ("\n"); 
    } 
}