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