17 lines
403 B
Perl
17 lines
403 B
Perl
#!/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";
|
|
}
|