无涯教程-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

参考链接

https://www.learnfk.com/perl/perl-setpwent.html