<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'>
Desculpem por ter enviado o email repetido, na verdade eu faço biomedicina, e namoro Perl a 7 meses com trabalhos de bioinformatica na area de pesquisa em genética, formo esse ano!<br><br>Mas eu sou apaixonado por programação e Perl é minha primeira linguagens, apesar de ter noção basica de outras é a que eu sou apaixonado,<br>porem esses assunto a nível binario me dão um nó na cabeça!<br><br>Mas agradeço a ajuda, foi otima, agora tentarei fazer o script.<br><br>Eu ja havia feito usando as funções uc e lc.<br><br>Ficou assim:<br> <br>#!/usr/local/bin/perl<br><br>use common::sense;<br><br>sub inverter{<br> my @result = undef ;<br> my $nome = shift;<br> my @letr = split (//, $nome);<br> foreach my $let (@letr) { <br> if ($let eq uc $let) {<br> my $chng = lc $let;<br> push (@result, $chng);<br> }<br> elsif ($let eq lc $let){<br> my $chng = uc $let;<br> push (@result, $chng);<br> } <br> }<br> <br> print @result, "\n";<br> <br>}<br> print "Insira seu nome\n";<br> my $ENT = <STDIN>;<br> my $inv = inverter $ENT;<br> <br> exit 0 ;<br><br>Fiz a partir de um desafio besta, mas ai levantamos a discussão de fazer em modo binario.<br>Antes de enviar esse email eu fiz um POG muito grande, mas foi na inocencia, tinha feito assim:<br><br>#!/usr/local/bin/perl<br><br>use common::sense;<br><br>chomp (my $entrada = <STDIN>);<br><br>my @name = split (//, $entrada);<br><br>my $n = @name;<br><br>for (my $i= 0; $i = $n - 1; $i++){<br><br> my @change = split (//, binmode $name[$i]);<br> print $name[0], $name[1], $name[2], @change, $change[2], "\n";<br> #8 digitos 3 define masc ou min<br><br> if ($change[2] == 0){<br> $change[2] += 1;<br> }<br> else {<br> $change[2] -= 1;<br> }<br>}<br><br>print @name, "\n";<br><br>exit 0;<br><br>Mas não deu certo. hahaha<br><br>Vou tentar novamente e envio o resultado.<br><br>Mas muito obrigado mesmo!<br><br><br><div><div id="SkyDrivePlaceholder"></div><hr id="stopSpelling">Date: Sat, 11 Feb 2012 16:13:19 -0200<br>From: ole.ufg@gmail.com<br>To: rio-pm@pm.org<br>Subject: Re: [Rio-pm] Bit-a-Bit<br><br><div class="ecxgmail_quote"><blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex"><br>
Enfim, espero ter ajudado. Desculpe o email longo, vc disse que era<br>
iniciante então tentei ser o mais didático e detalhado possível :-)<br></blockquote><div><br></div><div>E vc fue exatamente isso, Breno! Parabens para sua prontidao de sempre ajudar ensemear conhecimentos!!!</div><div><br>
</div><div>[]s</div><div>0le </div><blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex">
<br>
[]s<br>
<br>
-b<br>
_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</blockquote></div><br><br clear="all"><div><br></div>-- <br> /////<br> ( O O )<br>=================oOO==(_)==OOo=================<div> Every day and every hour, I'm Learning more</div>
<div> The more I Learn, the less I Know about before</div><div> The Less I know, the more I want to Look around</div><div> Diggin' deeper into Higher Ground... UB40</div><div> .oooO Oooo.<br>
==================( )=( )=====================<br> \ ( ) /<br> \_) (_/<br>===============================================<br> Ole Peter Smith, IME, UFG<br>
<a href="http://www.mat.ufg.br/docentes/olepeter" target="_blank">http://www.mat.ufg.br/docentes/olepeter</a> - ole at <a href="http://mat.ufg.br" target="_blank">mat.ufg.br</a><br>===============================================<br>
Life sure is a Mystery to be Lived<br> Not a Problem to be Solved<br>===============================================</div><br>
<br>_______________________________________________
Rio-pm mailing list
Rio-pm@pm.org
http://mail.pm.org/mailman/listinfo/rio-pm</div> </div></body>
</html>