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