URL: https://linuxfr.org/forums/programmation-perl/posts/code-perl-remplacement-automatique-dans-un-fichier-texte
Title: code perl remplacement automatique dans un fichier texte
Authors: pasencoreinvite
Date: 2005年08月23日T17:35:42+02:00
Tags: 
Score: 0
Je voudrais réaliser à l'aide d'un script perl les actions suivantes: 
 
1)renommer une chaine de caractères (en fait intercaller : 
- dans un fichier texte, rechercher une séquence générique seq1 
- regarder si la longueur de la sequence qui suit (mot suivant) est supérieure à 1 
- si oui, alors intercaller un "_" entre chaque lettre 
- le répéter jusqu'à la fin du fichier pour chaque paragraphe 
 
2) modifier une valeur dans un fichier: 
rechercher toutes les lignes commençant par une sequence seq2 et remplacer le deuxième nombre qui la suit par une valeur j que l'on incrémentera de 1 à chaque fois. 
 
QQ1 peut me donner le code correspondant svp? 
 
merci d'avance!
</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/code-perl-remplacement-automatique-dans-un-fichier-texte.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/forums/programmation-perl/posts/code-perl-remplacement-automatique-dans-un-fichier-texte.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>