Você está certo, my mistake. Na verdade nem precisaria de um hash, pensando bem:<br>
<br>
my @vals = qw(1:2 2:3 3:4);<br>
my $x = 1;<br>
my $y = 2;<br>
<br>
foreach (map { [split /:/] } @vals) {<br>
$x += $_->[0];<br>
$y += $_->[1];<br>
print "$x $y\n";<br>
}<br>
<br>
Ah, no strict é feio :P<br>
<br>
<div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><br>Ô Igor, da forma que você fez, pode ocorrer perda de dados devido à<br>sobre-escrita de valores que possuem a mesma chave. Se seus valores
<br>forem qw(1:2 1:3 1:4), o loop while só vai executar uma vez.<br><br>Eu pensei em usar hash tb mas de forma diferente:<br><br><code><br>my %tmp;<br>@tmp{qw($x $y $z)} = split(/:/, '1:2:3');<br>no strict 'refs';<br>
$$_ += $tmp{$_} foreach keys %tmp;<br>use strict 'refs'<br></code><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>