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