[Cascavel-pm] Soma

[Adriano Ferreira]

Em Perl 6, isto será mais fácil com hiper-operadores. Mas por enquanto
você pode tentar algo como:

@vars = \($a, $b);
@vals = split /:/, $c;
$$_ += shift @vals for @vars;

Bem, você não pediu uma solução, né?

Adriano Ferreira.

On 7/10/06, Thomas Britis <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
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>