Aide PERL newbie

Version imprimable

Aide PERL newbie

Bonjour,

J'ai le fichier students.ldif suivant :

dn: cn=Eric DURAND
cn: Eric DURAND
xmozillanickname: DURAND
mail: edurand@ent.priv
givenname: Eric
sn: DURAND
objectclass: top
objectclass: person
userPassword: 5f4eb6bbf2994ad2e259a4b8c932f9c8

dn: cn=Claude DUPONT
cn: Claude DUPONT
xmozillanickname: DUPONTC
mail: cdupont@ent.priv
givenname: Claude
sn: DUPONT
objectclass: top
objectclass: person
userPassword: b2a219a7ee0debaf86e9b94eb6b7edf9

etc.

J'ai commencé à coder un script pour modifier son contenu et le re-écrire au bon format dans un autre fichier (students_tmp.ldif) avant importation dans la base LDAP.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 #-------------------------------------------# #!/usr/bin/perl -w use Digest::MD5 qw(md5); use MIME::Base64 qw(encode_base64); use strict; my ($fichier, $mdp, $ligne, $attribut, $hashedPasswd); print "Entrez un nom de fichier : "; $fichier = <STDIN>; chomp($fichier); open(FIC, $fichier) || die "Problème à l\'ouverture : $!"; open(FILE,">students_tmp.ldif") || die ("Erreur de creation de students_tmp.ldif") ; while($ligne = <FIC>) { if($ligne =~ /userPassword:/) { ($attribut, $mdp) = split(/ /, $ligne); # MD5 hash my @md5 = split "",$mdp; my @res; for (my $i = 0 ; $i < 32 ; $i+=2) { my $c = (((hex $md5[$i]) << 4) % 255) | (hex $md5[$i+1]); $res[$i/2] = chr $c; } $hashedPasswd = "{MD5}".encode_base64(join "", @res); $ligne =~ s/$mdp/$hashedPasswd/; print FILE $ligne; } else { if($ligne !~ /^xmozillanickname/) { $ligne =~ s/givenname/givenName/; $ligne =~ s/objectclass/objectClass/; print FILE $ligne; } } } close FIC and close FILE; print "Terminé !!!\n"; #-------------------------------------------#
Aujourd'hui, je ne parviens pas à faire mes deux dernières modifs :

1) J'aimerais ajouter pour chaque ligne commençant par dn: cn l'expression ,ou=users,dc=ent,dc=priv

Ainsi, dn: cn=Eric DURAND deviendrait dn: cn=Eric DURAND,ou=users,dc=ent,dc=priv

2) j'aimerai insérer avant chaque ligne commençant par userPassword: la ligne suivante : objectClass: inetOrgPerson

Ainsi, j'obtiendrai le résultat suivant :

objectclass: person
objectClass: inetOrgPerson
userPassword: 5f4eb6bbf2994ad2e259a4b8c932f9c8

Merci bien pour vos contributions.

30/12/2008, 11h30
stoyak
tu devrais déjà faire un chomp de $ligne après ton while.
Ensuite

Citation:

1) J'aimerais ajouter pour chaque ligne commençant par dn: cn l'expression ,ou=users,dc=ent,dc=priv

Ainsi, dn: cn=Eric DURAND deviendrait dn: cn=Eric DURAND,ou=users,dc=ent,dc=priv
Code:

1 2 3 if ( $ligne =~ /^dn: cn/) { $ligne = $ligne . "ou=users,dc=ent,dc=priv\n"; }
Citation:

2) j'aimerai insérer avant chaque ligne commençant par userPassword: la ligne suivante : objectClass: inetOrgPerson
Code:

1 2 3 if ( $ligne =~ /^userPassword:/) { $ligne = "objectClass: inetOrgPerson" . $ligne . "\n"; }
voilà

Merci stoyak pour ces solutions.

La première condition me retourne :

dn: cn=Eric DURAND
,ou=users,dc=gdroger,dc=priv
cn: Eric DURAND

et non dn: cn=Eric DURAND,ou=users,dc=ent,dc=priv

La deuxième condition ne me rajoute rien.

J'en ai profité pour déplacer print FILE $ligne; dans le while. Il est inutile qu'elle soit dans les conditions if.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
while($ligne = <FIC>)
{
	if($ligne =~ /userPassword:/)
	{
		($attribut, $mdp) = split(/ /, $ligne);
		# MD5 hash
       		my @md5 = split "",$mdp;
		my @res;
		for (my $i = 0 ; $i < 32 ; $i+=2)
		{
			my $c = (((hex $md5[$i]) << 4) % 255) | (hex $md5[$i+1]);
			$res[$i/2] = chr $c;
		}
		$hashedPasswd = "{MD5}".encode_base64(join "", @res);
		$ligne =~ s/$mdp/$hashedPasswd/;
	}
	else {
		if ( $ligne =~ /^dn: cn/) 
		{
			$ligne = $ligne . ",ou=users,dc=ent,dc=priv\n";
		}
		if ( $ligne =~ /^userPassword:/)
		{
			$ligne = "objectClass: inetOrgPerson" . $ligne . "\n";
			print FILE $ligne;
		}
		if($ligne !~ /^xmozillanickname/) 
		{
			$ligne =~ s/givenname/givenName/;  
			$ligne =~ s/objectclass/objectClass/;    			
		}
	}
	print FILE $ligne;
}

Il faut que tu fasse un chomp ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
while($ligne = <FIC>)
{
        chomp $ligne;
	if($ligne =~ /userPassword:/)
	{
		($attribut, $mdp) = split(/ /, $ligne);
		# MD5 hash
       		my @md5 = split "",$mdp;
		my @res;
		for (my $i = 0 ; $i < 32 ; $i+=2)
		{
			my $c = (((hex $md5[$i]) << 4) % 255) | (hex $md5[$i+1]);
			$res[$i/2] = chr $c;
		}
		$hashedPasswd = "{MD5}".encode_base64(join "", @res);
		$ligne =~ s/$mdp/$hashedPasswd/;
	}
	else {
		if ( $ligne =~ /^dn: cn/) 
		{
			$ligne = $ligne . ",ou=users,dc=ent,dc=priv\n";
		}
		if ( $ligne =~ /^userPassword:/i)
		{
			$ligne = "objectClass: inetOrgPerson" . $ligne . "\n";
			print FILE $ligne;
		}
		if($ligne !~ /^xmozillanickname/) 
		{
			$ligne =~ s/givenname/givenName/;  
			$ligne =~ s/objectclass/objectClass/;    			
		}
	}
	print FILE $ligne;
}

C'est parce que tu as mis tes nouvelles conditions dans le else() alors que le if() est la partie exécutée si tu as userPassword dans la ligne. Par ailleurs tu n'as pas fait de chomp() comme conseillé par stoyak.

Ma solution ressemblerait plutôt à cela :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
#!/usr/bin/perl
use strict; use warnings;
 
use MIME::Base64 qw(encode_base64);
 
print "Entrez un nom de fichier : \n";
chomp( my $filename = <STDIN> );
 
open my($input), '<', $filename
  or die "Problème à l'ouverture de $filename : $!\n";
open my($output), '>', 'students_tmp.ldif'
  or die "Erreur de creation de students_tmp.ldif : $!\n";
 
while( my $line = <$input>) {
  chomp($line);
 
  if($line =~ m/^userPassword:/) {
    my (undef, $pwd) = split /:\s*/, $line, 2;
    # MD5 hash
    my $md5 = encode_base64(pack 'H*', $pwd);
    $line = "objectClass: inetOrgPerson\nuserPassword: {MD5}$md5";
  }
 
  if($line !~ m/^xmozillanickname/) {
    $line =~ s/givenname/givenName/;
    $line =~ s/objectclass/objectClass/;
  }
 
  if( $line =~ m/^dn: cn/ ) {
    $line .= ",ou=users,dc=ent,dc=priv";
  }
 
  print {$output} "$line\n";
}
 
close $input; close $output;
 
print "Terminé !!!\n";
 
__END__

--
Jedaï

30/12/2008, 15h55
sneakz

C'est nettement plus propre. On sent l'expérience derrière ces quelques lignes. Merci Jedai et stoyak pour l'entraide.

L'insertion est correcte. Le hash est nettement plus propre. Il faudra que j'analyse ces queqlues lignes.

Toutefois,le retour me restitue ceci :

,ou=users,dc=gdroger,dc=priv
cn: Eric DURAND
...

dn: cn=Eric DURAND n'est plus affiché.
30/12/2008, 17h47
sneakz
Si j'écris :
Code:

1 2 3 4 if( $line =~ m/^dn: cn/ ) { print $line . "toto\n"; }
Cela me renvoie :

totocn: Eric DURAND

La concaténation ne s'effectue pas
30/12/2008, 18h45
Jedai

Citation:

Envoyé par sneakz

Toutefois,le retour me restitue ceci :

,ou=users,dc=gdroger,dc=priv
cn: Eric DURAND
...

dn: cn=Eric DURAND n'est plus affiché.

Tu as du faire une erreur en recopiant, a priori tu as écrit :

Code:

$line = ",ou=users,dc=ent,dc=priv";

là où mon code dit :

Code:

$line .= ",ou=users,dc=ent,dc=priv";

(et oui, le petit point devant le égal fait toute la différence)

--
Jedaï
30/12/2008, 18h54
stoyak

:mouarf:
30/12/2008, 18h58
sneakz

J'avais fait un copier-coller. Le . était donc présent.

,ou=users,dc=gdroger,dc=priv
cn: Eric DURAND
...

dn: cn=Eric DURAND n'est plus affiché.
30/12/2008, 20h04
Jedai

Citation:

Envoyé par sneakz

J'avais fait un copier-coller. Le . était donc présent.

J'ai testé mon script avec l'exemple de ton premier message avant de te le donner, donc forcément, si tu n'obtiens pas le même résultat, c'est que tu as changé quelque chose dans mon script.

--
Jedaï
30/12/2008, 22h50
sneakz
Compte tenu du fichier input créé sous windows, la conversion des fins de ligne fonctionne bien avec :
Code:

1 2 3 while( my $line = <$input>) { $line =~ tr/\r//d;
Merci beaucoup pour ces compléments d'infos et de la réponse précise apportée au problème (dixit PM).