[Rio-pm] Bit-a-Bit

[Aureliano Guedes]

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>