Voilà la procédure de nettoyage à appeler dans vos programmes!! Bien sûr, c’est à améliorer, je n’ai pas regardé les entités des carcatères de façon exhaustive…
Bon taf à tous! :p
Marguerite
sub nettoyage {
my ($ligne) = shift(@_);
$ligne=~s/'/’/g;
$ligne=~s/é/é/g;
$ligne=~s/ê/è/g;
$ligne=~s/"/”/g;
return $ligne;
}
Salut à tous!
vous trouverez ci-dessous la procédure de nettoyage dont on a parlé en cours aujourd’hui.
J’espère que ça vous servira!! Mais elle est indubitablement améliorable! Je n’ai pas encore regardé si j’avais vraiment une liste exhaustive des entités des carcatères qui posent problème.
En tous cas, bon taf à tous :p
Marguerite
sub nettoyage {
my ($ligne) = shift(@_);
$ligne=~s/'/’/g;
$ligne=~s/é/é/g;
$ligne=~s/ê/è/g;
$ligne=~s/"/”/g;
return $ligne;
}
