Perl - extraction initiale prénom composé

Fermé
grand_jeanluc - 12 juin 2010 à 22:33
Bonjour,

Je cherche à avoir les initiale d'un prénom dans une chaine de caractère.

par exemple "Anne-Laure" devait me donner "AL".

le code que j'utilise est le suivant:

$min[0] est le lieu où est stocké le prénom

#extraction de la première lettre du prénom composé
$temp = $min[0];
$temp =~ /^?(\w).*/;
$un = $1;
$in1 = $un;
#extraction de la deuxième lettre du prénom composé
$temp = $min[0];
$temp =~ /(?<=-)(.*?)\s/;
$temp =~ /^?(\w).*/;
$un = $1;
$in2 = $un;
								
print $in2."\n";
								
$init= $in1.$in2;


or mon code retourne la première initiale pour la deuxième initiale.

$temp =~ /(?<=-)(.*?)\s/;
je pensait que ça extrait le deuxième prénom

$temp =~ /^?(\w).*/;
ça, ça extrait l'initiale du deuxième prénom.


or ce n'est pas le cas.

Merci de votre aide.