[Rio-pm] Bit-a-Bit
Aureliano Guedes
guedes_1000 em hotmail.com
Domingo Fevereiro 12 04:26:14 PST 2012
Bom dia,
Fiz conforme eu queria, sem usar as funções lc e uc, somente mexendo no binário!
Agradeço a todos, inclusive ao Breno por ter oferecido seu tempo em uma ótima explicação!
Segue como ficou!
_________________________________________________________________________________________________________________
#!/usr/bin/perl
use common::sense;
sub inverter{
my $str = shift;
my $mausc = q();
foreach my $chr (split //, $string) {
$maiusc .= chr( ord($chr) ^ 0b00100000 );
}
return $maiusc;
}
print inverter "PeRl MoNgEs\n"
______________________________________________________________________________________________________
Obrigado e uma otima semana!
> From: tiago.peczenyj em gmail.com
> Date: Sun, 12 Feb 2012 11:49:41 +0000
> To: rio-pm em pm.org
> Subject: Re: [Rio-pm] Bit-a-Bit
>
> 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
> _______________________________________________
> 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/20120212/400ace91/attachment.html>
Mais detalhes sobre a lista de discussão Rio-pm