<html><head></head><body><div style="color:#000; background-color:#fff; font-family:Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:13px"><div id="yui_3_16_0_1_1498652382394_28497">Olá Monges!</div><div id="yui_3_16_0_1_1498652382394_28498"><br></div><div id="yui_3_16_0_1_1498652382394_28499">Estou chocada!</div><div id="yui_3_16_0_1_1498652382394_28501">Acabei de descobrir que alterar o valor de $item dentro de um loop foreach my $item (@vetor){ } altera o valor do elemento do array!</div><div id="yui_3_16_0_1_1498652382394_28504">Como é que eu nunca tinha percebido isto?</div><div id="yui_3_16_0_1_1498652382394_28505" dir="ltr">Quando leio os scripts dos alunos, sempre aprendo uma maneira inusitada de resolver uma questão. Mas esta contradiz uma certeza que eu tinha...<br></div><div id="yui_3_16_0_1_1498652382394_28340"><br></div><div id="yui_3_16_0_1_1498652382394_28582" dir="ltr"><font id="yui_3_16_0_1_1498652382394_28912" face="Courier New, courier, monaco, monospace, sans-serif">#LETRA d) da Questão 01 - TROCAR T por U na Sequencia <br id="yui_3_16_0_1_1498652382394_28608"></font></div><div dir="ltr" id="yui_3_16_0_1_1498652382394_28756"><font id="yui_3_16_0_1_1498652382394_28946" face="Courier New, courier, monaco, monospace, sans-serif">my @nucls = split(//, $dna);<br id="yui_3_16_0_1_1498652382394_28760"><br></font></div><div dir="ltr" id="yui_3_16_0_1_1498652382394_28713"><font id="yui_3_16_0_1_1498652382394_28913" face="Courier New, courier, monaco, monospace, sans-serif">foreach my $item(@nucls) {<br id="yui_3_16_0_1_1498652382394_28610"> print "@nucls\n";<br id="yui_3_16_0_1_1498652382394_28612"> if($item eq "T") {<br id="yui_3_16_0_1_1498652382394_28613"> $item = "U";<br id="yui_3_16_0_1_1498652382394_28614"> }<br id="yui_3_16_0_1_1498652382394_28615"> if($item eq "t") {<br id="yui_3_16_0_1_1498652382394_28616"> $item = "u";<br id="yui_3_16_0_1_1498652382394_28617"> }<br id="yui_3_16_0_1_1498652382394_28618">}<br id="yui_3_16_0_1_1498652382394_28619"></font></div><div id="yui_3_16_0_1_1498652382394_28583" dir="ltr"><font face="Courier New, courier, monaco, monospace, sans-serif">my $seq = uc(join("", @nucls));</font><br id="yui_3_16_0_1_1498652382394_28688"></div><div dir="ltr" id="yui_3_16_0_1_1498652382394_28773"><br></div><div dir="ltr" id="yui_3_16_0_1_1498652382394_28772">E a sequencia realmente foi modificada!</div><div dir="ltr" id="yui_3_16_0_1_1498652382394_28945">Na minha concepção, a variável $item recebia o valor de cada elemento do array, mas ocupava um endereço diferente. <br></div><div dir="ltr" id="yui_3_16_0_1_1498652382394_28942">Mas assim, me parece que ela não passa de uma referência.</div><div dir="ltr" id="yui_3_16_0_1_1498652382394_28907">Está certo isto?</div><div dir="ltr" id="yui_3_16_0_1_1498652382394_28943"><br></div><div dir="ltr" id="yui_3_16_0_1_1498652382394_28944">[]s,</div><div dir="ltr">Nicole</div><div dir="ltr" id="yui_3_16_0_1_1498652382394_28899"><br></div></div></body></html>