Enlever les accents

use Unicode::Normalize;
sub sansaccents() {
my $s = shift();
my $d = NFKD( $s );
$d =~ s/\p{NonspacingMark}//g;
return $d;
}


Enlever les accents

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *