On 22 fév, 23:03, jimsgib...@gmail.com (Jim Gibson) wrote:
> On 2/21/10 Sun Feb 21, 2010 7:13 AM, "akabou" <aka...@free.fr> scribbled:
>
> > Hello, everybody
>
> > I have a csv file with firstname, lastname, group
>
> Group name or group number?
>
>
>
> > and need to create user and group if it doesn't exist.
>
> > But the problem is that i must not use useradd ou groupadd.
>
> > I must read user from csv, and then check if user exist, and if group
> > exist.
>
> > i've started like this, but i don't know how to check if user exist,
> > and group exist.
>
> Use a hash indexed by user name for user data, and another hash indexed by
> group (name or number or both) for group data (probably just a dummy entry
> to indicate the group exists).
>
>
>
> > Here is the starting of my code.
>
> You should have here:
>
> use strict;
> use warnings;
>
>
>
> > $file = './liste_etudiants.csv';
>
> ... which will force you to put
>
> my $file = ...
>
> here and below for better error checking.
>
> > open (FICH,$file) ||die ("Fichier innexistant");
>
> > while ($line = <FICH>)
> > {
> > #on splie chauqe ligne
> > ($field1,$field2,$field3) = split (',', $line);
>
> I would use better variable names:
>
> my( $firstname, $lastname, $group ) = split(/,/,$line);
>
> > #on enlève le charcatère "
> > ($field1) =~ s/"//g;
> > ($field1) = substr($field1, 0, 1);
> > ($field2) =~ s/"//g;
> > ($field3) =~ s/"//g;
> > ($login) = $field1 . $field2;
>
> The parentheses in the above lines are not needed and are confusing.
>
>
>
> > print "$field1 : $field2 : $field3 -- le login sera login$login sera
> > membre de $field3 \n";
> > }
>
> > #ecrire dans un fichier
> > #open(F_WRITE,">./touche.txt") || die "E/S : $!\n";
> > #print $filed1;
>
> > close(FICH);
>
> > I wanted to test with tis kind of test
>
> > open (FILE,"/etc/passwd");
> > while () {
> > chomp;
> > /^([a-z][a-z0-9]*):x:([0-9]+):([0-9]+):/;
> > #si le user id=user id dans le fichier on incrémante de 1 le uid
> > if ($2 == $uid) { $uid++; }
> > }
>
> > but don't know how.
>
> The /etc/passwd file has lines that are user records with fields separated
> by colons (':'). Use split to extract the fields (all untested):
>
> my @data = split(/:/);
>
> Save the data by user name:
>
> my( %users, %groups);
> ...
> $users{$data[0]} = \...@data; # or [...@data] to make a copy
> $groups{$data[3]} = 1;
>
> Do this before you read your CSV file. Then you can check if the user
> already exists with this:
>
> if( ! exists $users{$login} ) {
> # add user
> }
>
> or
> unless( exists $users{$login} ) {
> # add user
> }
>
> Note: some Unix systems have the file /etc/shadow that also must be modified
> to add a user.
>
> Read and save the contents of /etc/group similarly to see if the group
> exists.
Thansk i'm going to have a look to all you answer and will give you
feedback
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
