bonjour,
j'ai une liste d'utilisateur du type suivant nomm� "utilisateurs.txt":
login,group,/home donc concr�tement jai des s�quences du type:
yoann,administrateur,/data/samba/home/yoann
teddy,developpeur,/data/samba/home/teddy
tibo,commercial,/data/samba/home/tibo
....
etc
Chaque champs �tant s�par� par une virgule, j'ai donc voulu faire un script en
perl pour automatiser tout ca mais je n'arrive pas � faire le script pour
parcourir le fichier et en extraire le login pour pouvoir ensuite comparer au
fichier /etc/passwd de mani�re a savoir si l'utilisateur existe ou non pour
pouvoir le cr�er.
Voici mon code meme si il est cour:
#!/usr/bin/perl -w
open (FILEHANDLE, "<utilisateurs.txt") or die ("Impossible d'ouvrir
utilisateurs.txt");
while (<FILEHANDLE>)
{
@list = split(/,/, <FILEHANDLE>);
foreach $mot (@list) {
print $mot."\n";
}
}
close (FILEHANDLE);
Je suis bloqu� a ce niveau..
