Bonjour
je tentes de récupérer plusieurs informations dans un fichier texte, afin de modifier un autre fichier. Voila le fichier sur lequel je veu récupérer mes données

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
dn: cn=jean mich,mail=jeanmich@hotmail.com
objectclass: top
objectclass: person
objectclass: organizationalPerson
objectclass: inetOrgPerson
objectclass: mozillaAbPersonAlpha
givenName: mich
sn: jean
cn: jean mich
mail: jeanmich@hotmail.com
J'essaye de récupérer ce qui est après givenName:, et après sn :.
Je voulais savoir si c'était possible en parcourant 1 seule fois le fichier

Voici une partie du code que j'ai écris, et vous vous en doutez, ca marche pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
while (my $donnees = <$fic>){
	chomp ($donnees);
	my $prenom =~ /givenName:/"([^\"]+)";
        my $sn =~ /sn:/"([^\"]+)";
         my $new_ldif = $ldif;
	$new_ldif =~ s/prenomaremplacer/$prenom/g;
	chomp ($new_ldif);
    print $ldif_out $new_ldif;
    #print "$new_ldif\n";
}
close $ldif_out;
close $fic;
Je sais que l'erreur vient de la regex, mais je vois pas trop comment il faut l'écrire

Merci de votre aide ...