Gestion des caractères accentués [PERL] - Perl - Programmation
Marsh Posté le 21-06-2005 à 15:06:00
#! D:\Perl\bin\wperl.exe 
bonjour, 
 
J'utilise active perl sous Win XP pour faire des mini programme et chez moi le programme ci-dessous fonctionne tres bien. 
Il me detecte correctement le "ù". l'affichage à l'ecran est altéré par la console mais sinon la detection est faite correctement. 
 
Exemple: 
 
#! D:\Perl\bin\perl.exe 
 
use warnings; 
use strict; 
 
 
my $toto =  "coùcoù"; 
 
if($toto =~ m/ù/){ 
print "u accent: 'ù' ok\n"; # Cela s'affiche a la console 
} 
 
if($toto =~ m/ô/){ 
print "o accent :'ô' ok\n"; 
} 
 
exit(0);
Marsh Posté le 21-06-2005 à 15:10:31
Salut, moi j'utilise juste ceci au début: 
 
#!C:\perl\bin\perl.exe -w 
 
et ça fonctionne très bien pour les caractères accentués. Par contre, en effet dans la console c'est pas tip top...
Marsh Posté le 06-05-2005 à 23:42:19
Bonjour !
Je travaille sur des scripts Perl dans un environnement Windows XP, avec ActivePerl 5.8.
Je voudrais savoir comment convaincre mes scripts de prendre en compte les caractères accentués ?
Que ce soit dans les pattern de recherche ( m/où/ ) ou dans les print, il refuse désespérément de les gérer, les considérant à priori comme des caractères vides...
Si je ne m'abuse, c'est un problème d'encodage, que je pourrais résoudre en expliquant gentiment à Perl d'utiliser la norme Latin-1 ou Latin-9. Oui mais voila... Comment faire ? A quel endroit puis je spécifier ceci ?
Merci d'avance pour vos réponses,
Nuage.