URL: https://linuxfr.org/forums/programmation-perl/posts/r%C3%A9cuperer-linitiale-dun-prenom
Title: récuperer l'initiale d'un prenom
Authors: nanard06
Date: 2010年03月02日T23:01:50+01:00
Tags: 
Score: 0
Bonjour à toutes et à tous, 
 
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, "<noms.csv") or die "$!"; 
 while (my $ligne = ) { 
 £spaces£ £/spaces£next unless my ($nom, $prenom, $group) = 
 £spaces£ £/spaces£$ligne =~ /"([^"]+[^"])",\s*"([^"]+)",\s*"([^"]+)"/g; 
 print "$group$prenom$nom\n"; 
 } 
 
 
qui me donne le résultat suivant: 
A1jeandupont 
B2gilbertmartin 
 
Quelqu'un a t-il une idée? 
Merci
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="httpS://linuxfr.org/forums/programmation-perl/posts/r%C3%A9cuperer-linitiale-dun-prenom.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/forums/programmation-perl/posts/r%C3%A9cuperer-linitiale-dun-prenom.md" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>