Différences

Ci-dessous, les différences entre deux révisions de la page.

--- all:bibles:langages:perl [2026/05/11 14:36] – [Commandes système] omeylhoc
+++ all:bibles:langages:perl [2026/05/21 13:45] (Version actuelle) – [Commandes système] omeylhoc
@@ Ligne 1025: / Ligne 1025: @@
 chmod(0700,$FILE);                                                                     # toujours commencer par 0 en l’absence de sticky bit
 my $uid = getpwnam("utilisateur");                                                     # récupération user id
-my ($name, $passwd, $uid, $gid) = getpwnam($username);                                 # récupération username, passwd, uid et gid
+my ($name, $passwd, $uid, $gid) = getpwnam("utilisateur");                             # récupération username, passwd, uid et gid
 my $gid = getgrnam "groupe";                                                           # récupération group id
 my $name = getpwuid($num);                                                             # récupération username à partir du uid
 ($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwuid($uid);  # récupération des infos du fichier /etc/passwd
 ($group, $passwd, $gid, $members) = getgrgid($num);                                    # à partir du gid récupération groupe, et des membres du groupe
+my $uid   = getpwnam($name);
+my $name  = getpwuid($num);
+my $name  = getpwent();
+my $gid   = getgrnam($name);
+my $name  = getgrgid($num);
+my $name  = getgrent();
 chown($uid,$gid,$fichier);                                                             # modification propriétaire fichier
 chroot("chemin"); chdir("/");                                                          # chroot (suivre par un chdir pour s'assurer que l'on n'est pas en dehors de l'arborescence)