[SP-pm] Executar uma 'sub' a partir de um hashref
Gabriel Vieira
gabriel.vieira em gmail.com
Sexta Fevereiro 29 07:52:09 PST 2008
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
Mais detalhes sobre a lista de discussão SaoPaulo-pm