[Rio-pm] Bit-a-Bit

[Tiago Peczenyj]

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