[Cascavel-pm] Soma

[Víctor A. Rodríguez]

Ola,

primeiramente me apresento. Meu nome é Víctor e somente esteve olhando
e-mails neste anho que estou subscrito. Estou morando em Buenos Aires
(Argentina) e infelizmente meu português não é muito bom.

> Senhores,
>
> 	Existe alguma forma de se fazer o seguinte:
> $c = "2:3";
>
> ($a, $b) += split (/:/, $c); ???
>

Agora, voltando ao problema de Thomas, acho que uma solução mais bem
pequenina pode ser feita assim :

my $index = 1;
my @aux = ( $a, $b );
@aux = map {$index ^= 1; $_ + $aux[$index] } split (/:/, $c);
($a, $b) = @aux;

Acho que não é muito elegante mais como a função map() inserida num loop e
muito melhor.

[]'s
--
Víctor A. Rodríguez (http://www.bit-man.com.ar)
El bit Fantasma (Bit-Man)
CaFe.pm - Perl Mongers Capital Federal (http://cafe.pm.org/)
Probaste con Software Libre
(http://www.bit-man.com.ar/cgi-bin/wiki.pl?AyudaCompu/SoftwareLibre ??