Thank you very much. The global I use is in fact this one:
my ($tag, $str) = @_;
$str =~ s|A|a|gi;
$str =~ s|À|a|gi;
$str =~ s|Â|a|gi;
$str =~ s|Ä|a|gi;
$str =~ s|à|a|gi;
$str =~ s|â|a|gi;
$str =~ s|ä|a|gi;
$str =~ s|B|b|gi;
$str =~ s|C|c|gi;
$str =~ s|Ç|c|gi;
$str =~ s|ç|c|gi;
$str =~ s|D|d|gi;
$str =~ s|E|e|gi;
$str =~ s|É|e|gi;
$str =~ s|Ê|e|gi;
$str =~ s|È|e|gi;
$str =~ s|Ë|e|gi;
$str =~ s|é|e|gi;
$str =~ s|ê|e|gi;
$str =~ s|è|e|gi;
$str =~ s|ë|e|gi;
$str =~ s|F|f|gi;
$str =~ s|G|g|gi;
$str =~ s|H|h|gi;
$str =~ s|I|i|gi;
$str =~ s|Ï|i|gi;
$str =~ s|Ì|i|gi;
$str =~ s|Î|i|gi;
$str =~ s|ï|i|gi;
$str =~ s|ì|i|gi;
$str =~ s|î|i|gi;
$str =~ s|J|j|gi;
$str =~ s|K|k|gi;
$str =~ s|L|l|gi;
$str =~ s|M|m|gi;
$str =~ s|N|n|gi;
$str =~ s|O|o|gi;
$str =~ s|Ö|o|gi;
$str =~ s|Ô|o|gi;
$str =~ s|Ò|o|gi;
$str =~ s|ö|o|gi;
$str =~ s|ô|o|gi;
$str =~ s|ò|o|gi;
$str =~ s|P|p|gi;
$str =~ s|Q|q|gi;
$str =~ s|R|r|gi;
$str =~ s|S|s|gi;
$str =~ s|T|t|gi;
$str =~ s|U|u|gi;
$str =~ s|Ü|u|gi;
$str =~ s|Û|u|gi;
$str =~ s|Ù|u|gi;
$str =~ s|ü|u|gi;
$str =~ s|û|u|gi;
$str =~ s|ù|u|gi;
$str =~ s|V|v|gi;
$str =~ s|W|w|gi;
$str =~ s|X|x|gi;
$str =~ s|Y|y|gi;
$str =~ s|Z|z|gi;
return { $tag => $str };
}
This global works perfectly for me. But maybe your solution use less ressources than mine in very long text ??
Thank you again!
François
Code:
sub { my ($tag, $str) = @_;
$str =~ s|A|a|gi;
$str =~ s|À|a|gi;
$str =~ s|Â|a|gi;
$str =~ s|Ä|a|gi;
$str =~ s|à|a|gi;
$str =~ s|â|a|gi;
$str =~ s|ä|a|gi;
$str =~ s|B|b|gi;
$str =~ s|C|c|gi;
$str =~ s|Ç|c|gi;
$str =~ s|ç|c|gi;
$str =~ s|D|d|gi;
$str =~ s|E|e|gi;
$str =~ s|É|e|gi;
$str =~ s|Ê|e|gi;
$str =~ s|È|e|gi;
$str =~ s|Ë|e|gi;
$str =~ s|é|e|gi;
$str =~ s|ê|e|gi;
$str =~ s|è|e|gi;
$str =~ s|ë|e|gi;
$str =~ s|F|f|gi;
$str =~ s|G|g|gi;
$str =~ s|H|h|gi;
$str =~ s|I|i|gi;
$str =~ s|Ï|i|gi;
$str =~ s|Ì|i|gi;
$str =~ s|Î|i|gi;
$str =~ s|ï|i|gi;
$str =~ s|ì|i|gi;
$str =~ s|î|i|gi;
$str =~ s|J|j|gi;
$str =~ s|K|k|gi;
$str =~ s|L|l|gi;
$str =~ s|M|m|gi;
$str =~ s|N|n|gi;
$str =~ s|O|o|gi;
$str =~ s|Ö|o|gi;
$str =~ s|Ô|o|gi;
$str =~ s|Ò|o|gi;
$str =~ s|ö|o|gi;
$str =~ s|ô|o|gi;
$str =~ s|ò|o|gi;
$str =~ s|P|p|gi;
$str =~ s|Q|q|gi;
$str =~ s|R|r|gi;
$str =~ s|S|s|gi;
$str =~ s|T|t|gi;
$str =~ s|U|u|gi;
$str =~ s|Ü|u|gi;
$str =~ s|Û|u|gi;
$str =~ s|Ù|u|gi;
$str =~ s|ü|u|gi;
$str =~ s|û|u|gi;
$str =~ s|ù|u|gi;
$str =~ s|V|v|gi;
$str =~ s|W|w|gi;
$str =~ s|X|x|gi;
$str =~ s|Y|y|gi;
$str =~ s|Z|z|gi;
return { $tag => $str };
}
This global works perfectly for me. But maybe your solution use less ressources than mine in very long text ??
Thank you again!
François