Perl

[Perl] Lecture du groupe détenteur d'un repertoire Unix

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] Lecture du groupe détenteur d'un repertoire Unix

Muchacho

Salut,

J'aurais besoin de savoir comment faire pour récupérer le groupe détenteur d'un répertoire donné, sous un systeme Unix, et je dois avouer que je galere pas mal pour trouver une commande/technique appropriée.

Merci a tous ceux qui pourront me filer des pistes !

Publicité

Taz

bisounours-codeur

je sais pas. peut etre en récupérant la sortie de ls -l. sinon vu que la fonction C de l'API s'appelle getgid, tu ferais bien de chercher un truc comme ça

Muchacho

Taz a écrit :

je sais pas. peut etre en récupérant la sortie de ls -l. sinon vu que la fonction C de l'API s'appelle getgid, tu ferais bien de chercher un truc comme ça

Merci, je vais regarder le 'getgid'
En fait, j'avais fait jusque la un 'ls -l', mais ca semble generer des problemes dans certains cas particuliers, donc je cherchais une solution alternative

Muchacho

Je crains de ne disposer que de 'getgrgid', qui retourne le nom d'un groupe a partir de son n° :'(

Muchacho

[:paulo les gaz]

anapajari

s/travail/glanding on hfr/gs;

C'était quoi les cas particuliers ou ça marchait pas, parce que normalement quelque chose dans ce genre la doit marcher:

Code :

my $file= "tonDossier";
my $path= "/var/www/html/";
my $cmd = "ls -l $path| grep $file";
my $sysout = `$cmd`;
$sysout =~ s/\s+/ /g;
my @result = split(" ", $sysout);
print "owner: $result[2] group: $result[3]\n\n";

Ya juste pour les répertoires "." et ".." je pense que ça marche pas.

Muchacho

Anapajari a écrit :

C'était quoi les cas particuliers ou ça marchait pas, parce que normalement quelque chose dans ce genre la doit marcher:

Code :

my $file= "tonDossier";
my $path= "/var/www/html/";
my $cmd = "ls -l $path| grep $file";
my $sysout = `$cmd`;
$sysout =~ s/\s+/ /g;
my @result = split(" ", $sysout);
print "owner: $result[2] group: $result[3]\n\n";

Ya juste pour les répertoires "." et ".." je pense que ça marche pas.

Justement, la commande alternative devrait m'aider a voir de quels cas particuliers il s'agit, ou au mieux de marcher correctement.
Je suis bien d'accord que le ls devrait marcher correctement sans ca...

anapajari

s/travail/glanding on hfr/gs;

Bin sinon t'as toujours la fonction stat() et t'as plus qu'a la coupler avec getpwuid() et getgrgid() pour faire un truc comme ça:

Code :

my $filename = "tonfichier";
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($filename);
my $name = getpwuid($uid);
my $group = getgrgid($gid);
print "owner: $name group: $group\n\n";

Muchacho

Tout betement

Ca suffit a passer outre mes cas particuliers (dus a des environnements Unix "mutants" )

Merci tres beaucoup a toi :jap:

FORUM HardWare.fr

Programmation

Perl

[Perl] Lecture du groupe détenteur d'un repertoire Unix

Sujets relatifs
Sélectionner le répertoire actif dans un TShellTreeView	[PERL] Définir des variables globales
Lecture dans un fichier ou STL	[Perl] classer des e-mails en fonction du fournisseur
[JScript] Compter les fichiers (*.toto) d'un repertoire	[PHP ou PERL] Cherches script pour avoir les requetes de recherche
Classe de lecture de fichier encodées - Approche Objet	Portail en perl
[PERL] Rechercher un / avec une regex	[VBA] Lire un fichier au format Unix
Plus de sujets relatifs à : [Perl] Lecture du groupe détenteur d'un repertoire Unix

Page générée en 0.055 secondes