On Thu, Mar 17, 2005 at 05:28:23PM +0100, Leenox wrote:
> 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");
Ces jours-ci on essaie d'utiliser des variables:
open $file, "utilisateurs.txt" or ...
> while (<FILEHANDLE>)
> {
> @list = split(/,/, <FILEHANDLE>);
> foreach $mot (@list) {
> print $mot."\n";
> }
> }
> close (FILEHANDLE);
Ben oui:
while ($ligne = <$file>) {
@list = split /,/, $ligne;
...
}
Y.
--
Pensez à lire la FAQ de la liste avant de poser une question :
http://wiki.debian.net/?DebianFrench
Pensez à rajouter le mot ``spam'' dans vos champs "From" et "Reply-To:"
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
