Comme je ne suis pas gourmand mais gourmet j'ai conservé mon regex et ai ajouté le substr suggéré par Yves.
Ce qui donne le script suivant:
<pre>
open (LISTE, "<liste.csv") or die "$!";
while (my $ligne = <LISTE>) {
next unless my ($prenom, $nom, $group) =
$ligne =~ /"([^"]+[^"])",\s*"([^"]+)",\s*"([^"]+)"/g;
$initial=substr($prenom,0,1);
print "$group$initial$nom\n";
}
</pre>
Qui me donne le résultat que je souhaitais
A1jdupont
A2gmartin
# C'est Ok
Posté par nanard06 . En réponse au message récuperer l'initiale d'un prenom. Évalué à 1.
Ce qui donne le script suivant:
<pre>
open (LISTE, "<liste.csv") or die "$!";
while (my $ligne = <LISTE>) {
next unless my ($prenom, $nom, $group) =
$ligne =~ /"([^"]+[^"])",\s*"([^"]+)",\s*"([^"]+)"/g;
$initial=substr($prenom,0,1);
print "$group$initial$nom\n";
}
</pre>
Qui me donne le résultat que je souhaitais
A1jdupont
A2gmartin
Un grand merci à tous