Depende o que você chama de complexa. A sua solução depende da
existência de uma variável por item. Isso que eu escrevi você pode
colocar em uma função. Enfim, aproveite o que você quiser do exemplo :P<br><br><div><span class="gmail_quote">On 7/10/06, <b class="gmail_sendername">Thomas Britis</b> <<a href="mailto:thomas@tcnet.com.br">thomas@tcnet.com.br
</a>> wrote:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Obrigado Igor, porém acho que sua solução é bem mais complexa do que a
<br>minha, hehe. O que eu quero é simplificar.<br><br> Obrigado mesmo assim.<br><br>Igor Sutton wrote:<br>> Ups, entendi mal a questão :)<br>><br>> Acho que você pode fazer algo do tipo:<br>><br>> <code>
<br>> my @result;<br>> my $tosum = "4:3:2:1";<br>> my @nums = qw(1 2 3 4);<br>> my @tosum = split(/:/, $tosum);<br>><br>> for (my $i=0; $i<@tosum;$i++) {<br>> push @result, $nums[$i] + $tosum[$i];
<br>> }<br>><br>> print "@result\n";<br>> <code><br>><br>> On 7/10/06, *Thomas Britis* <<a href="mailto:thomas@tcnet.com.br">thomas@tcnet.com.br</a><br>> <mailto:<a href="mailto:thomas@tcnet.com.br">
thomas@tcnet.com.br</a>>> wrote:<br>><br>> Senhores,<br>><br>> Existe alguma forma de se fazer o seguinte:<br>> $c = "2:3";<br>><br>> ($a, $b) += split (/:/, $c); ???
<br>><br>>
Quero somar o resultado do split em variáveis distintas.<br>> Hoje faço:<br>> ($x, $y) = split (/:/, $c); $a += $x; $b += $y;<br>><br>> Obrigado.<br>> --<br>> Thomas Storino Britis
<br>> TCNet Informatica e Telecomunicacoes LTDA<br>> _______________________________________________<br>> Cascavel-pm mailing list<br>> <a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a>
<mailto:<a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a>><br>> <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>><br>><br>><br>
><br>> --<br>> Igor Sutton Lopes<br>> <a href="http://www.izut.com/">http://www.izut.com/</a><br>><br>><br>> ------------------------------------------------------------------------<br>><br>> _______________________________________________
<br>> Cascavel-pm mailing list<br>> <a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>> <a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br>
<br>--<br>Thomas Storino Britis<br>TCNet Informatica e Telecomunicacoes LTDA<br>_______________________________________________<br>Cascavel-pm mailing list<br><a href="mailto:Cascavel-pm@pm.org">Cascavel-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/cascavel-pm">http://mail.pm.org/mailman/listinfo/cascavel-pm</a><br></blockquote></div><br><br clear="all"><br>-- <br>Igor Sutton Lopes<br><a href="http://www.izut.com/">http://www.izut.com/
</a>