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

["Er Galvão Abbott - PortoAlegre.pm"]

Porque tr trabalha com expressões regulares.

Neste seu caso você está tentando fazer a seguinte substituição:

"Substitua a string ÁÀÃÂÉÊÍÓÔÕÚÜÇ pela string áàãâéêíóôõúüç" e não 
"Substitua cada acento", como você deve estar desejando.

A solução eu fico te devendo, mas tenho certeza de que um dos monges 
deve estar enviando para lista, se bobear até já enviaram antes de eu 
terminar este e-mail. ;-)

Er Galvão Abbott
pmpoa em galvao.eti.br
----------------------------------------------------
Fundador e Administrador - Porto Alegre Perl Mongers
http://portoalegre.pm.org/
----------------------------------------------------
Sócio e Diretor Técnico - Sociedade Perl do Brasil
http://perl.org.br/
----------------------------------------------------



Marco Modesto wrote:

>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
>_______________________________________________
>Cascavel-pm mailing list
>Cascavel-pm em pm.org
>http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
>  
>