Mega Code Archive

 

Categories / Perl / System Functions

 

To display all the etcpasswd fields for users passed on the command line

#!/usr/bin/perl -w     foreach $username (@ARGV) {     ($name, $passwd, $uid,$gid, $quota, $comment,$gcos, $dir, $shell) = getpwnam($username);        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";   }