Discussion :

[falco-]

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

[falco-]

Avec :
$ligne=~ s/<key 1="tag.(.*) $/$1/;

rien !
essai pour supprimer les blancs après tag.

avez-vous une idée ?

Merci.

[Jedai]

Franchement, essayer de modifier du HTML avec des regexps... Ca peut marcher pour les cas très simples, mais tu vas vite avoir des problèmes, je te conseillerais plutôt de t'orienter vers HTML::Parser ou apparenté.

--
Jedaï

[falco-]

Bonsoir,
est-ce possible d'avoir un exemple pour :
key 1="tag.bidon. truc" parentName="Statuts"/> doit devenir
key 1="tag.bidontruc" parentName="Statuts"/>

Merci !

[falco-]

bonjour,
je vais voir avec le parser.
Merci pour l'information.
A+