[Rio-pm] Bit-a-Bit

[Stanislaw Pusep]

Antes tarde do que nunca:
http://tecnoveneno.blogspot.com/2011/06/perl-conversao-de-caso-usando-logica.html

ABS()



On Wed, Feb 15, 2012 at 11:44, Alexei Znamensky <russoz em gmail.com> wrote:

> sub togglec {
>   return uc($1) if $1 =~ /[[:lower:]]/;
>   return lc($1);
> }
>
> ainda acho o ternario mais adequado para a situação
> Em 12/02/2012 10:36, "Tiago Peczenyj" <tiago.peczenyj em gmail.com> escreveu:
>
>  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
>> _______________________________________________
>> Rio-pm mailing list
>> Rio-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/rio-pm
>>
>
> _______________________________________________
> Rio-pm mailing list
> Rio-pm em pm.org
> http://mail.pm.org/mailman/listinfo/rio-pm
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20120215/fc08c8aa/attachment.html>