Agora que a gente já sabe o que você quer fazer :) Outra opção é transformar a sua lista de resultados em um hash:<br>
<br>
my @vals = qw(1:2 2:3 3:4);<br>
my $x = 1;<br>
my $y = 2;<br>
<br>
my %tmp = map { split /:/ } @vals;<br>
while (my ($k, $v) = each %tmp) {<br>
$x += $k;<br>
$y += $v;<br>
print "$x $y\n";<br>
}<br>
<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;">
Tá certo.<br><br> Na verdade eu tenho um looping que me retorna dados no formato: x:y e<br>preciso somar isso a duas variaveis já existentes, algo como:<br>while ($a = "2:3") { # Eh soh uma suposição. Os números não serão
<br>necessariamente iguais<br>($b, $c) = split (/:/, $a); # Isso era o que eu pretendia fazer.<br>($x, $y) = split (/:/, $a); $b += $x; $c += $y; # Isso eh o que faco.<br>}<br><br>O que me importa no fim das contas são as variaveis $b e $c com a soma
<br>total do que me é retornado por $a (depois do looping se desfazer).<br><br> Mais uma vez, muito obrigado.<br><br>Igor Sutton wrote:<br>> Depende o que você chama de complexa. A sua solução depende da<br>> existência de uma variável por item. Isso que eu escrevi você pode
<br>> colocar em uma função. Enfim, aproveite o que você quiser do exemplo :P<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>> 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>><br>> > <mailto: <a href="mailto:thomas@tcnet.com.br">thomas@tcnet.com.br</a> <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>> <mailto:<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>> > _______________________________________________<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>> 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> <<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>