(Courriels de diversion: <rendit@qualificatif-peignit.com> <excellait@leader-transposera.com> <interpretations@broncherent-executeras.com> <fignolage@fondamentaliste-reinscrivait.com> <eliront@sagittaires-marieraient.com> <sourcille@polarisez-irrationnels.com> <devie@charmerait-talonnerait.com> <trafiquais@hydroglisseur-huppe.com> <engrangera@mexicaines-etalement.com> <forerons@amovibles-sopranos.com> )
On Saturday 01 Jun 2002, Jean-Michel OLTRA wrote:
> On Friday 31 May 2002, marc Thirion wrote:
> > > Soyons lourds (dans la pure tradition TK)
> > > ls -w640 -l|awk '{print $3,$9}'
> > Soyons légers, pour changer :
> > perl -e 'print ${[getpwuid((stat(shift))[4])]}[0] . "\n";' monfichier
> On pourrait s'amuser avec ça ?
Mille excuses, j'suis allé trop vite :
/* nom_uid.c */
#include <stdio.h>
#include <pwd.h>
#include <sys/stat.h>
#include <sys/types.h>
int main(int argc, char *argv[])
{
struct stat mes_stats;
struct passwd *pwd;
if(argc != 2) {
fprintf(stderr, "usage : %s fichier\n", argv[0]);
exit(1);
}
if(stat(argv[1], &mes_stats)) {
fprintf(stderr, "Accès impossible à %s\n", argv[1]);
exit(1);
}
printf("%s\n", getpwuid(mes_stats.st_uid)->pw_name);
return 0;
}
--
jean-michel
---------------------------------------------------------------------
Aide sur la liste: <URL:mailto:linux-31-help@CULTe.org>Le CULTe sur le web: <URL:http://www.CULTe.org/>