[Rio-pm] Bit-a-Bit

[Alexei Znamensky]

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
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/rio-pm/attachments/20120215/80aea746/attachment.html>