Mega Code Archive

 

Categories / Perl / System Functions

 

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