Perl setpwent 函数
描述
此函数将枚举设置（或重置）到密码条目集的开头。 此函数应在第一次调用 getpwent 之前调用。
语法
以下是此函数的简单语法 −
setpwent
返回值
此函数不返回任何值。
示例
以下是显示其基本用法的示例代码 −
#!/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";
}
setpwent() ; # Rewind the databse /etc/passwd
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";
}
endpwent(); # Closes the database;
执行上述代码时，会产生以下结果 −
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 = daemon Password = x UID = 2 GID = 2 Quota = Comment = Gcos = daemon HOME DIR = /sbin Shell = /sbin/nologin . . . Name = qemu Password = x UID = 107 GID = 107 Quota = Comment = Gcos = qemu user HOME DIR = / 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 Shell = /bin/false
