[Cascavel-pm] Soma

[Thomas Britis]

Obrigado Igor, porém acho que sua solução é bem mais complexa do que a 
minha, hehe. O que eu quero é simplificar.

	Obrigado mesmo assim.

Igor Sutton wrote:
> Ups, entendi mal a questão :)
> 
> Acho que você pode fazer algo do tipo:
> 
> <code>
> my @result;
> my $tosum = "4:3:2:1";
> my @nums = qw(1 2 3 4);
> my @tosum = split(/:/, $tosum);
> 
> for (my $i=0; $i<@tosum;$i++) {
>     push @result, $nums[$i] + $tosum[$i];
> }
> 
> print "@result\n";
> <code>
> 
> On 7/10/06, *Thomas Britis* <thomas em tcnet.com.br 
> <mailto:thomas em tcnet.com.br>> wrote:
> 
>     Senhores,
> 
>             Existe alguma forma de se fazer o seguinte:
>     $c = "2:3";
> 
>     ($a, $b) += split (/:/, $c); ???
> 
>             Quero somar o resultado do split em variáveis distintas.
>     Hoje faço:
>     ($x, $y) = split (/:/, $c); $a += $x; $b += $y;
> 
>             Obrigado.
>     --
>     Thomas Storino Britis
>     TCNet Informatica e Telecomunicacoes LTDA
>     _______________________________________________
>     Cascavel-pm mailing list
>     Cascavel-pm em pm.org <mailto:Cascavel-pm em pm.org>
>     http://mail.pm.org/mailman/listinfo/cascavel-pm
> 
> 
> 
> 
> -- 
> Igor Sutton Lopes
> http://www.izut.com/
> 
> 
> ------------------------------------------------------------------------
> 
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm

-- 
Thomas Storino Britis
TCNet Informatica e Telecomunicacoes LTDA