Discussion :

[elghadi_mohamed]

Bonjour


j'ai fais une application sur un serveur web et je voudrais enregistrer des messages du trafic sur le serveur dans un fichier log mais mon probleme etait au niveau des manipulation des chaines affichees dans ma page Html , je m'explique:
j'ai fais un petit formulaire qui permet la saise des donnnees et leurs traitement et retourne un message de diagnostique à l'usager du service qui s'affichera dans la page html et pour garantir l'affichage des caracteres accentues j'utilise des sequences comme : é pour é et ainsi de suite dans mon code html. pour faire un fichier log je recupere le message et je dois l'analyser et remplacer les chaines speciales par le caracetere associe et c'est là où il y a le probleme.

voici le bout de code qui permet de verifier ça (à titre d'exemple):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
my $chaine = "numéro de téléphone";
my @tab = split(/ /,$chaine);
my $i =0;
while(exists($tab[$i])){
$tab[$i]=~s/(é)/e/;
$i++;
}
my $chaines = join(" ",@tab);
print "la chaine :$chaines\n";

et voici le resultat:


merci de votre aide

[Deimos_]

Bonsoir,

Le problème provient d'une option qui manque à ton expression régulière : l'option 'g' (global match). En effet tu 'split' avec come délimiteur l'espace, donc dans $tab[2] tu auras "téléphone", soit deux occurences de é à modifier.
Et si l'option 'g' n'estpas présente, seule la première de ces occurences est modifiée, ce qui explique ton résultat.

Voici le code que je te propose :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl
 
use strict;
use warnings;
 
my $chaine = "numéro de téléphone";
my @tab = split ' ', $chaine;
 
for my $mot (@tab) {
    $mot =~ s/é/e/g;
}
 
$chaine = join ' ',@tab;
print "la chaine : $chaine\n";

- use strict / warnings pour un code plus propre
- on remplace le while par un foreach


Deimos

[Jedai]

Tu pourrais aussi utiliser HTML::Entities tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
use HTML::Entities;
 
my $chaine = "numéro de téléphone";
 
print "la chaine : ", decode_entities($chaine), "\n";

Plus simple et plus général...
Inutile de réinventer la roue ! (sauf dans un but pédagogique bien sûr)

--
Jedaï

[elghadi_mohamed]

merci de votre aide c'est reglé .