Perl getpwent 函数
描述
此函数从 /etc/passwd 文件返回下一个密码条目。 这与 setpwent 和 endpwent 函数结合使用以遍历密码文件。 在列表上下文中，返回
($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwent;
语法
以下是此函数的简单语法 −
getpwent
返回值
此函数在标量上下文中返回用户名，在列表上下文中返回用户记录(name, password, user ID, group ID, quote, comment, real name, home directory, shell)
示例
以下是显示其基本用法的示例代码 −
#!/usr/bin/perl
while(($name, $passwd, $uid, $gid, $quota, $comment, $gcos,
$dir, $shell) = getpwent()) {
print "Name = $name\n";
print "Password = $passwd\n";
print "UID = $uid\n";
print "GID = $gid\n";
print "Quota = $quota\n";
print "Comment = $comment\n";
print "Gcos = $gcos\n";
print "HOME DIR = $dir\n";
print "Shell = $shell\n";
}
执行上述代码时，会产生以下结果 −
Name = root Password = x UID = 0 GID = 0 Quota = Comment = Gcos = root HOME DIR = /root Shell = /bin/bash Name = bin Password = x UID = 1 GID = 1 Quota = Comment = Gcos = bin HOME DIR = /bin Shell = /sbin/nologin . . . Name = com Password = x UID = 501 GID = 501 Quota = Comment = Gcos = HOME DIR = /home/com Shell = /bin/bash Name = railo Password = x UID = 497 GID = 495 Quota = Comment = Gcos = HOME DIR = /opt/railo
