Use User::pwent to access user data : User « System Functions « Perl






Use User::pwent to access user data

      

#!/usr/bin/perl -w

use User::pwent;

$pw = getpwnam('daemon') or die "No daemon user";

foreach $username (@ARGV) {  

    $pw = getpwnam($username);
    
    print "name    = ", $pw->name(), "\n";  
    print "uid     = ", $pw->uid(), "\n";  
    print "gcos    = ", $pw->gecos(), "\n";  
    print "dir     = ", $pw->dir(), "\n";  
    print "shell   = ", $pw->shell(), "\n\n";  
}  

   
    
    
    
    
    
  








Related examples in the same category

1.Expired user
2.File group listing
3.List group
4.Quota, change or age