[Rio-pm] Bit-a-Bit
Tiago Peczenyj
tiago.peczenyj em gmail.com
Domingo Fevereiro 12 04:36:18 PST 2012
a preguiça passou:
use strict;
use warnings;
use Encode;
binmode STDOUT, ":utf8";
my $string = "ação AÇÃO";
print join "", map { ($_ =~ /[[:lower:]]/) ? uc($_) : lc($_) } split
//, decode('UTF-8',$string);
achei o operador ternario muito feio. ideias?
2012/2/12 Tiago Peczenyj <tiago.peczenyj em gmail.com>:
> opa
>
> 2012/2/11 breno <breno em rio.pm.org>:
>>
>> sub inverter {
>> my $string = shift;
>> $string = ~ tr/a-zA-Z/A-Za-z/;
>> return $string;
>> }
>>
>
> Esta abordagem é otima mas tem suas limitações, como no caso da
> palavra ação. como estou com preguiça não vou propor uma solução mas
> um uso de split com reduce e alguma magia negra pode resolver.
>
>
> --
> Tiago B. Peczenyj
> Linux User #405772
>
> http://pacman.blog.br
--
Tiago B. Peczenyj
Linux User #405772
http://pacman.blog.br
Mais detalhes sobre a lista de discussão Rio-pm