<div dir="ltr">Olá Nicole,<div><br></div><div>Está sim. A depender do valor de cada item, claro. Isso é bem interessante aliás.<br><b><br></b><span style="color:rgb(81,81,81);font-family:"Helvetica Neue",Arial,Helvetica,Geneva,sans-serif;font-size:12.8px">If any element of LIST is an lvalue, you can modify it by modifying VAR inside the loop. Conversely, if any element of LIST is NOT an lvalue, any attempt to modify that element will fail. </span><b>In other words, the foreach loop index variable is an implicit alias for each item in the list that you're looping over.</b><br><br></div><div>Segue a referência da documentação: <a href="http://perldoc.perl.org/perlsyn.html#For-Loops">http://perldoc.perl.org/perlsyn.html#For-Loops</a></div></div><div class="gmail_extra"><br><div class="gmail_quote">2017-06-28 11:07 GMT-04:00 Nicole Scherer <span dir="ltr"><<a href="mailto:bionica2007-perl@yahoo.com" target="_blank">bionica2007-perl@yahoo.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="color:#000;background-color:#fff;font-family:Helvetica Neue,Helvetica,Arial,Lucida Grande,sans-serif;font-size:13px"><div id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28497">Olá Monges!</div><div id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28498"><br></div><div id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28499">Estou chocada!</div><div id="m_-7663916857483965710yui_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="m_-7663916857483965710yui_3_16_0_1_1498652382394_28504">Como é que eu nunca tinha percebido isto?</div><div id="m_-7663916857483965710yui_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="m_-7663916857483965710yui_3_16_0_1_1498652382394_28340"><br></div><div id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28582" dir="ltr"><font id="m_-7663916857483965710yui_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                     <wbr>                              <wbr>                              <wbr>  <br id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28608"></font></div><div dir="ltr" id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28756"><font id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28946" face="Courier New, courier, monaco, monospace, sans-serif">my @nucls = split(//, $dna);<br id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28760"><br></font></div><div dir="ltr" id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28713"><font id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28913" face="Courier New, courier, monaco, monospace, sans-serif">foreach my $item(@nucls) {<br id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28610">    print "@nucls\n";<br id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28612">    if($item eq "T") {<br id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28613">        $item = "U";<br id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28614">    }<br id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28615">    if($item eq "t") {<br id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28616">        $item = "u";<br id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28617">    }<br id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28618">}<br id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28619"></font></div><div id="m_-7663916857483965710yui_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="m_-7663916857483965710yui_3_16_0_1_1498652382394_28688"></div><div dir="ltr" id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28773"><br></div><div dir="ltr" id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28772">E a sequencia realmente foi modificada!</div><div dir="ltr" id="m_-7663916857483965710yui_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="m_-7663916857483965710yui_3_16_0_1_1498652382394_28942">Mas assim, me parece que ela não passa de uma referência.</div><div dir="ltr" id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28907">Está certo isto?</div><div dir="ltr" id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28943"><br></div><div dir="ltr" id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28944">[]s,</div><div dir="ltr">Nicole</div><div dir="ltr" id="m_-7663916857483965710yui_3_16_0_1_1498652382394_28899"><br></div></div></div><br>______________________________<wbr>_________________<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" rel="noreferrer" target="_blank">http://mail.pm.org/mailman/<wbr>listinfo/rio-pm</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature" data-smartmail="gmail_signature">Gabriel Vieira</div>
</div>