[SP-pm] Executar uma 'sub' a partir de um hashref

[Gabriel Vieira]

Desculpe, mas me confundi todo, seria isso?


----------------8<-------------------
use Data::Dumper;
my $cmd_table = {'Add',&add(1,2)};
sub add {
     my ($v1,$v2) = @_;
     my $result = $v1 + $v2;
     return $result;
}
print Dumper $cmd_table;
print $cmd_table->{Add};
---------------->8-------------------

2008/2/29 André Garcia Carneiro <andre.garcia.carneir em terra.com.br>:
> Salve galeara!
>
>  Estou tentando fazer o seguinte. Eu tenho uma série de opções que o meu usuário pode colocar como 'input', e
>  gostaria de processá-las como algo parecido com o código abaixo:
>  <code>
>  use strict;
>  .
>  .
>  .
>  my $cmd_table = {'Add',\&add(1,2)};
>
>  sub add {
>       my ($v1,$v2) = @_;
>       my $result = $v1 + $v2;
>       return $result;
>  }
>
>  </code>
>
>
>  Claro que é só um exemplo. Mas o problema é que não estou entendendo como executar, e capturar o valor, quando
>  chamo a sub 'add'. Por exemplo:
>
>  <code>
>  .
>  .
>  .
>  my $userinput = shift;
>  my $result = $cmd->{$userinput};
>
>  </code>
>
>  Alguém poderia me corrigir/explicar o que está acontecendo aqui, para que eu possa tentar fazer funcionar?
>
>
>  Cheers!
>
>  --
>  André Garcia Carneiro
>  Developer(Perl/PHP)
>  Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org
>
>
>  _______________________________________________
>  SaoPaulo-pm mailing list
>  SaoPaulo-pm em pm.org
>  http://mail.pm.org/mailman/listinfo/saopaulo-pm
>



-- 
Gabriel Vieira