The Perl function getgrent retrieves an item from the user group file. : getgrent « System Functions « Perl

1. Perl
2. System Functions
3. getgrent

The Perl function getgrent retrieves an item from the user group file.

      

#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"); 
    } 
} 

   
    
    
    
    
    
  

Related examples in the same category