<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style></head>
<body class='hmmessage'><div dir='ltr'>
Bom dia,<br><br>Fiz conforme eu queria, sem usar as funções lc e uc, somente mexendo no binário!<br><br>Agradeço a todos, inclusive ao Breno por ter oferecido seu tempo em uma ótima explicação!<br><br>Segue como ficou!<br>_________________________________________________________________________________________________________________<br>#!/usr/bin/perl<br><br>use common::sense;<br><br>sub inverter{<br> my $str = shift;<br> my $mausc = q();<br> foreach my $chr (split //, $string) {<br> $maiusc .= chr( ord($chr) ^ 0b00100000 );<br> }<br> return $maiusc;<br>}<br><br>print inverter "PeRl MoNgEs\n"<br>______________________________________________________________________________________________________<br><br>Obrigado e uma otima semana!<br><br><div><div id="SkyDrivePlaceholder"></div>> From: tiago.peczenyj@gmail.com<br>> Date: Sun, 12 Feb 2012 11:49:41 +0000<br>> To: rio-pm@pm.org<br>> Subject: Re: [Rio-pm] Bit-a-Bit<br>> <br>> opa<br>> <br>> 2012/2/11 breno <breno@rio.pm.org>:<br>> ><br>> > sub inverter {<br>> > my $string = shift;<br>> > $string = ~ tr/a-zA-Z/A-Za-z/;<br>> > return $string;<br>> > }<br>> ><br>> <br>> Esta abordagem é otima mas tem suas limitações, como no caso da<br>> palavra ação. como estou com preguiça não vou propor uma solução mas<br>> um uso de split com reduce e alguma magia negra pode resolver.<br>> <br>> <br>> -- <br>> Tiago B. Peczenyj<br>> Linux User #405772<br>> <br>> http://pacman.blog.br<br>> _______________________________________________<br>> Rio-pm mailing list<br>> Rio-pm@pm.org<br>> http://mail.pm.org/mailman/listinfo/rio-pm<br></div> </div></body>
</html>