J'ai un fichier csv construit ainsi:
"jean","dupont","A1"
"gilbert","martin","A2"
à partir duquel je veux créer le tableau suivant:
A1jdupont
A2gmartin
Donc je voudrais ne récupérer que la première lettre du prénom de la variable $prenom.
J'ai écris le script suivant:
#!/usr/bin/perl -w
open (LISTE, "while (my $ligne = ) {
next unless my ($nom, $prenom, $group) =
$ligne =~ /"([^"]+[^"])",\s*"([^"]+)",\s*"([^"]+)"/g;
print "$group$prenom$nom\n";
}
qui me donne le résultat suivant:
A1jeandupont
B2gilbertmartin
Quelqu'un a t-il (…)