Bonjour,
suite à un autre message que j'ai posté du même type, mais celui-ci j'ai du mal à trouver la solution !
j'ai un fichier
...
key 1="tag.bidon. truc" parentName="Statuts"/>
</Group>
...

je vourdrais enlever certains caractères comme le . et le blanc contenu dans key 1.
key 1="tag.bidon. truc" parentName="Statuts"/> doit devenir
key 1="tag.bidontruc" parentName="Statuts"/> !!

voici mon code !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!/usr/bin/perl
 
 open(FIC, "IN");
 open(FIC2, ">OUT");
 while($ligne= <FIC>) {
          if ($ligne=~ /<key 1="tag.*[.| ].*"/)
             {
             $ligne=~ s/\.//g;
             $ligne=~ s/\ //g;
             print $ligne;
             }
 
                 printf FIC2 ("$ligne");
                 }
                 close(FIC);
                 close (FIC2);
j'obtiens :
<key1="tagbidontruc"parentName="Statuts"/> !!!
au lieu de :
<key 1="tag.bidontruc" parentName="Statuts"/> !!!

Merci