[Cascavel-pm] Newbie - Uso de translation TR para converter caracteres acentuados para minúsculas

Marco Modesto marcoabmod em gmail.com
Quinta Outubro 20 12:06:34 PDT 2005


Mongers,

Gostaria de converter strings com ou sem acentos para letras
minúsculas. Após isto retirar caracteres não alfanuméricos.

Pq o codigo abaixo não dá certo?

my $str = "disse: POÇO avião!"; #Entrada

my $acentosU = "ÁÀÃÂÉÊÍÓÔÕÚÜÇ";
my $acentosL = "áàãâéêíóôõúüç";
$str =~ tr/$acentosU/$acentosL/;

#A partir daqui o codigo executa normalmente:
$str =~ tr/A-Z/a-z/;
$str =~ s/[^\w\s\-$acentosU$acentosL]//g;

print $srt; # SAÍDA: disse poço avião


Mais detalhes sobre a lista de discussão Cascavel-pm