[Cascavel-pm] Soma

Igor Sutton igor.sutton em gmail.com
Segunda Julho 10 12:47:52 PDT 2006


Você está certo, my mistake. Na verdade nem precisaria de um hash, pensando
bem:

my @vals = qw(1:2 2:3 3:4);
my $x = 1;
my $y = 2;

foreach (map { [split /:/] } @vals) {
  $x += $_->[0];
  $y += $_->[1];
  print "$x $y\n";
}

Ah, no strict é feio :P


> Ô Igor, da forma que você fez, pode ocorrer perda de dados devido à
> sobre-escrita de valores que possuem a mesma chave. Se seus valores
> forem qw(1:2 1:3 1:4), o loop while só vai executar uma vez.
>
> Eu pensei em usar hash tb mas de forma diferente:
>
> <code>
> my %tmp;
> @tmp{qw($x $y $z)} = split(/:/, '1:2:3');
> no strict 'refs';
> $$_ += $tmp{$_} foreach keys %tmp;
> use strict 'refs'
> </code>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
Igor Sutton Lopes
http://www.izut.com/
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20060710/d58d9000/attachment.html 


Mais detalhes sobre a lista de discussão Cascavel-pm