Función getpwuid de Perl
Descripción
Esta función devuelve una lista de campos en contexto de lista, extraídos del archivo / etc / passwd, según el nombre de usuario especificado por EXPR. Generalmente se usa así:
($ nombre, $ contraseña, $ uid, $ gid, $ quota, $ comentario, $ gcos, $ dir, $ shell) = getpwuid ($ uid);
En un contexto escalar, devuelve el nombre de usuario. Si está intentando acceder a todo el archivo / etc / passwd, debe utilizar la función getpwent. Si desea acceder a los detalles por nombre de usuario, use getpwnam.
Sintaxis
A continuación se muestra la sintaxis simple para esta función:
getpwuid EXPR
Valor devuelto
Esta función devuelve el nombre de usuario en contexto escalar y el registro de usuario (nombre, contraseña, ID de usuario, ID de grupo, cita, comentario, nombre real, directorio de inicio, shell) en el contexto de lista.
Ejemplo
A continuación se muestra el código de ejemplo que muestra su uso básico:
#!/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";
Cuando se ejecuta el código anterior, produce el siguiente resultado:
Name = root
Password = x
UID = 0
GID = 0
Quota =
Comment =
Gcos = root
HOME DIR = /root
Shell = /bin/bash