Uppercase uc() et lettres accentuées

**smuller** · 19/02/2010, 11h35

Bonjour,

A priori, la fonction uc() ne gère pas les lettres accentuées :

Code :

uc('décembre') donne DéCEMBRE au lieu de DÉCEMBRE ou DECEMBRE

Est-ce que quelqu'un à une solution (module ou autre) pour palier à ce problème ?

Merci par avance
Stéphane

**Jasmine80** · 19/02/2010, 11h49

Tu peux utiliser une substitution avant de mettre en majuscules :

Code :

1
2
3
my $var = 'décembre';
$var =~ s/[éèêë]/e/g; # ou directement $var =~ s/[éèêë]/E/g; 
print uc($var);

**ssc37** · 22/02/2010, 16h19

Ou pour éviter de gérer toutes les possibilités , utiliser Text-Unidecode

Code :

1
2
3
4
5
6
 
use Text::Unidecode;
 
my $var = 'décembre';
 
print uc(unidecode($var));

**smuller** · 23/02/2010, 16h08

Impec ! Le module Text::Unidecode répond exactement à mon besoin.

Merci encore
Stéphane

Langage Perl