Perl getpwuid用法及代码示例

描述

此函数根据 EXPR 指定的用户名返回从 /etc/passwd 文件中提取的列表上下文中的字段列表。它通常像这样使用 -

($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwuid ($uid);

在标量上下文中，返回用户名。如果您尝试访问整个 /etc/passwd 文件，您应该使用 getpwent 函数。如果要按用户名访问详细信息，请使用 getpwnam。

用法

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

getpwuid EXPR

返回值

此函数返回标量上下文中的用户名和列表上下文中的用户记录(名称、密码、用户 ID、组 ID、引号、评论、真实姓名、主目录、shell)。

示例

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

#!/usr/bin/perl

($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwuid(0);
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