The getgrnam function retrieves the group file entry corresponding to a particular group name. : getpwnam « System Functions « Perl

1. Perl
2. System Functions
3. getpwnam

The getgrnam function retrieves the group file entry corresponding to a particular group name.

      

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

#!/usr/local/bin/perl 

$name = "grp1"; 
if (!(($gname, $gpasswd, $gid, $gmembers) = getgrnam ($name))) { 
    die ("Group $name does not exist.\n"); 
} 
$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