Print out all users on your UNIX system : getpwent « System Functions « Perl

1. Perl
2. System Functions
3. getpwent

Print out all users on your UNIX system

     

#!/usr/bin/perl -w
  
while ( ($name, $passwd, $uid,$gid, $quota, $comment,$gcos, $dir, $shell) = getpwent ) {  
  
    print "name    = $name\n";  
    print "passwd  = $passwd\n";  
    print "uid     = $uid\n";  
    print "gid     = $gid\n";  
    print "quota   = $quota\n";  
    print "comment = $comment\n";  
    print "gcos    = $gcos\n";  
    print "dir     = $dir\n";  
    print "shell   = $shell\n\n";  
}  

   
    
    
    
    
  

Related examples in the same category