Perl 中的 setpwent函数

首页 / Perl入门教程 / Perl 中的 setpwent函数

描述

此功能将枚举设置(或重置)到密码条目集的开头。应该在第一次调用getpwent之前调用此函数。

语法

以下是此函数的简单语法-

setpwent

返回值

此函数不返回任何值。

以下是显示其基本用法的示例代码-

链接:https://www.learnfk.comhttps://www.learnfk.com/perl/perl-setpwent.html

来源:LearnFk无涯教程网

#!/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

祝学习愉快!(内容编辑有误?请选中要编辑内容 -> 右键 -> 修改 -> 提交!)

技术教程推荐

透视HTTP协议 -〔罗剑锋(Chrono)〕

SQL必知必会 -〔陈旸〕

检索技术核心20讲 -〔陈东〕

To B市场品牌实战课 -〔曹林〕

Flink核心技术与实战 -〔张利兵〕

成为AI产品经理 -〔刘海丰〕

流程型组织15讲 -〔蒋伟良〕

李智慧 · 高并发架构实战课 -〔李智慧〕

B端产品经理入门课 -〔董小圣〕

好记忆不如烂笔头。留下您的足迹吧 :)