Re: Script pour samba en perl

[Yves Rutschle <debian.anti-spam@rutschle.net>]

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.