Dans un script perl je voudrais récupérer le owner d'un répertoire
($br_path) pour pouvoir le modifier et ajouter un nouveau groupe à cet
utilisateur.
avec stat(), j'arrive à récupérer le UID, mais il me faut le login... pour
le moment le seul moyen que j'ai trouvé c'est d'aller lier /etc/passwd mais
le problème c'est que sur certaines machine, ce fichier n'est lisible que
par root.
du coup, le seul moyen auquel je pense c'est de faire un appel système à
"ls -l" mais je n'aime pas trop cette façon de faire... il n'y a pas un
moyen plus élégant pour faire ceci ?
(une fois que j'ai récupéré le owner, je voudrais faire quelque chose dans
le style :
my $rtn = system("usermod -G $group_for_sharing $owner_name");
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
drucbert
In article <4129b490$0$344$, "Pierre-Yves" <pyu-at-belbone.be> writes: |> Hello, |> |> Dans un script perl je voudrais récupérer le owner d'un répertoire |> ($br_path) pour pouvoir le modifier et ajouter un nouveau groupe à cet |> utilisateur. |> |> avec stat(), j'arrive à récupérer le UID, mais il me faut le login... pour |> le moment le seul moyen que j'ai trouvé c'est d'aller lier /etc/passwd mais |> le problème c'est que sur certaines machine, ce fichier n'est lisible que |> par root. |> |> du coup, le seul moyen auquel je pense c'est de faire un appel système à |> "ls -l" mais je n'aime pas trop cette façon de faire... il n'y a pas un |> moyen plus élégant pour faire ceci ? |> |> (une fois que j'ai récupéré le owner, je voudrais faire quelque chose dans |> le style : |> |> my $rtn = system("usermod -G $group_for_sharing $owner_name"); |> |> Merci d'avance |> |> Faites:
pw=*getpwuid(uid); /* le nom de 'utilisateur est dans pw.pw_name */
Amicalement,
Jean-Pierre
-- Jean-Pierre F. Drucbert (JPFD) Email: drucbert at onecert dot fr ONERA/Centre de Toulouse SRI Tél. 05-62-25-25-15; FAX: 05-62-25-25-35 Office national d'études et de recherches aérospatiales Centre de Toulouse Service réseaux et informatique Complexe scientifique de Rangueil 2, Avenue Édouard Belin BP 4025 F-31055 TOULOUSE CEDEX FRANCE
A bird cannot land once on a great tree and claim to know it. But I imagine that he would, yes. Iain M. Banks (1993), Against a dark background.
In article <4129b490$0$344$ba620e4c@news.skynet.be>, "Pierre-Yves" <pyu-at-belbone.be> writes:
|> Hello,
|>
|> Dans un script perl je voudrais récupérer le owner d'un répertoire
|> ($br_path) pour pouvoir le modifier et ajouter un nouveau groupe à cet
|> utilisateur.
|>
|> avec stat(), j'arrive à récupérer le UID, mais il me faut le login... pour
|> le moment le seul moyen que j'ai trouvé c'est d'aller lier /etc/passwd mais
|> le problème c'est que sur certaines machine, ce fichier n'est lisible que
|> par root.
|>
|> du coup, le seul moyen auquel je pense c'est de faire un appel système à
|> "ls -l" mais je n'aime pas trop cette façon de faire... il n'y a pas un
|> moyen plus élégant pour faire ceci ?
|>
|> (une fois que j'ai récupéré le owner, je voudrais faire quelque chose dans
|> le style :
|>
|> my $rtn = system("usermod -G $group_for_sharing $owner_name");
|>
|> Merci d'avance
|>
|>
Faites:
pw=*getpwuid(uid); /* le nom de 'utilisateur est dans pw.pw_name */
Amicalement,
Jean-Pierre
--
Jean-Pierre F. Drucbert (JPFD) Email: drucbert at onecert dot fr
ONERA/Centre de Toulouse SRI Tél. 05-62-25-25-15; FAX: 05-62-25-25-35
Office national d'études et de recherches aérospatiales
Centre de Toulouse Service réseaux et informatique
Complexe scientifique de Rangueil
2, Avenue Édouard Belin BP 4025 F-31055 TOULOUSE CEDEX FRANCE
A bird cannot land once on a great tree and claim to know it.
But I imagine that he would, yes.
Iain M. Banks (1993), Against a dark background.
In article <4129b490$0$344$, "Pierre-Yves" <pyu-at-belbone.be> writes: |> Hello, |> |> Dans un script perl je voudrais récupérer le owner d'un répertoire |> ($br_path) pour pouvoir le modifier et ajouter un nouveau groupe à cet |> utilisateur. |> |> avec stat(), j'arrive à récupérer le UID, mais il me faut le login... pour |> le moment le seul moyen que j'ai trouvé c'est d'aller lier /etc/passwd mais |> le problème c'est que sur certaines machine, ce fichier n'est lisible que |> par root. |> |> du coup, le seul moyen auquel je pense c'est de faire un appel système à |> "ls -l" mais je n'aime pas trop cette façon de faire... il n'y a pas un |> moyen plus élégant pour faire ceci ? |> |> (une fois que j'ai récupéré le owner, je voudrais faire quelque chose dans |> le style : |> |> my $rtn = system("usermod -G $group_for_sharing $owner_name"); |> |> Merci d'avance |> |> Faites:
pw=*getpwuid(uid); /* le nom de 'utilisateur est dans pw.pw_name */
Amicalement,
Jean-Pierre
-- Jean-Pierre F. Drucbert (JPFD) Email: drucbert at onecert dot fr ONERA/Centre de Toulouse SRI Tél. 05-62-25-25-15; FAX: 05-62-25-25-35 Office national d'études et de recherches aérospatiales Centre de Toulouse Service réseaux et informatique Complexe scientifique de Rangueil 2, Avenue Édouard Belin BP 4025 F-31055 TOULOUSE CEDEX FRANCE
A bird cannot land once on a great tree and claim to know it. But I imagine that he would, yes. Iain M. Banks (1993), Against a dark background.
Benoit Izac
Bonjour,
le 23/08/2004 à 11:13, Pierre-Yves a écrit dans le message <4129b490$0$344$ :
Dans un script perl je voudrais récupérer le owner d'un répertoire ($br_path) pour pouvoir le modifier et ajouter un nouveau groupe à cet utilisateur.
avec stat(), j'arrive à récupérer le UID, mais il me faut le login... pour le moment le seul moyen que j'ai trouvé c'est d'aller lier /etc/passwd mais le problème c'est que sur certaines machine, ce fichier n'est lisible que par root.
du coup, le seul moyen auquel je pense c'est de faire un appel système à "ls -l" mais je n'aime pas trop cette façon de faire... il n'y a pas un moyen plus élégant pour faire ceci ?
perldoc -f getpwuid
(une fois que j'ai récupéré le owner, je voudrais faire quelque chose dans le style :
my $rtn = system("usermod -G $group_for_sharing $owner_name");
Il vous faudra bien les droits root pour utiliser usermod.
-- Benoit Izac
Bonjour,
le 23/08/2004 à 11:13, Pierre-Yves a écrit
dans le message <4129b490$0$344$ba620e4c@news.skynet.be> :
Dans un script perl je voudrais récupérer le owner d'un répertoire
($br_path) pour pouvoir le modifier et ajouter un nouveau groupe à cet
utilisateur.
avec stat(), j'arrive à récupérer le UID, mais il me faut le
login... pour le moment le seul moyen que j'ai trouvé c'est d'aller
lier /etc/passwd mais le problème c'est que sur certaines machine, ce
fichier n'est lisible que par root.
du coup, le seul moyen auquel je pense c'est de faire un appel système
à "ls -l" mais je n'aime pas trop cette façon de faire... il n'y a pas
un moyen plus élégant pour faire ceci ?
perldoc -f getpwuid
(une fois que j'ai récupéré le owner, je voudrais faire quelque chose
dans le style :
my $rtn = system("usermod -G $group_for_sharing $owner_name");
Il vous faudra bien les droits root pour utiliser usermod.
le 23/08/2004 à 11:13, Pierre-Yves a écrit dans le message <4129b490$0$344$ :
Dans un script perl je voudrais récupérer le owner d'un répertoire ($br_path) pour pouvoir le modifier et ajouter un nouveau groupe à cet utilisateur.
avec stat(), j'arrive à récupérer le UID, mais il me faut le login... pour le moment le seul moyen que j'ai trouvé c'est d'aller lier /etc/passwd mais le problème c'est que sur certaines machine, ce fichier n'est lisible que par root.
du coup, le seul moyen auquel je pense c'est de faire un appel système à "ls -l" mais je n'aime pas trop cette façon de faire... il n'y a pas un moyen plus élégant pour faire ceci ?
perldoc -f getpwuid
(une fois que j'ai récupéré le owner, je voudrais faire quelque chose dans le style :
my $rtn = system("usermod -G $group_for_sharing $owner_name");
Il vous faudra bien les droits root pour utiliser usermod.
