Mega Code Archive

 

Categories / Perl / System Functions

 

Use User

#!/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";   }