URL: https://linuxfr.org/forums/programmation-perl/posts/resolu-regexp-qui-ne-marche-pas-enfin-pas-toujours
Title: [resolu] regexp qui ne marche pas, enfin pas toujours.
Authors: NeoX
Date: 2012年12月06日T11:57:36+01:00
Tags: perl et regex
Score: 2
le texte que je cherche à nettoyer tout sur une seule ligne, au milieu d'un fichier que je parcours ligne à ligne :
```xml
 src="C2_Fr_OIITXD.jpg" pageID="1" width="1651" height="2335" Sender="Moi" Receiver="" Script="" Document_Location="" Category="2a" Document_Date="05/09/2013" Document_Object="Bon de livraison" Language="french" NumPage="2" Receiver_Address="une adresse avec un numero des espaces, des virgules" Receiver_Name="marie ubert" Phone="+33(0)1.22.33.44.55"
```
le code qui vide les champs
il fait ca avec tous les champs, j'utilise la meme logique sur chacun des champs
```perl
if ($_ =~ /(Sender=".*?")/)
 {
 $_=~ s/1ドル/Sender=""/;
 }
if ($_ =~ /(Phone=".*?")/)
 {
 $_=~ s/1ドル/Phone=""/;
 }
```
mon probleme ?
si un champs contient un + ou des () ca ne marche plus.
ex : le numero de telephone n'est pas vidé
mais j'ai essayé avec +tata ou (tata) dans un autre champs
il n'est alors pas vidé par le script.
</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/resolu-regexp-qui-ne-marche-pas-enfin-pas-toujours.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/forums/programmation-perl/posts/resolu-regexp-qui-ne-marche-pas-enfin-pas-toujours.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>