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