interpreter une variable comment une fonction

Version imprimable

11/11/2007, 20h28
Ganondorf

interpreter une variable comment une fonction
salut à tous,

J'aimerai savoir comment interpreter une variable comment une fonction, je m'explique:

Je recoi un message du type
Code:

1 2 auth idnick password
le 1er argument "auth" je le stock dans une variable nommée $cmd
à coté de cela j'ai une fonction &cmd_auth et je voudrai que lorsque la variable $cmd correspond à "auth" ca me lance la fonction &cmd_$cmd ce qui corresponderai à cmd_auth.

J'ai déja essayé des manieres suivantes:
Code:

1 2 3 4 &cmd_$cmd(); &cmd_{$cmd}(); cmd_"$cmd"();
Mais rien ne fonctionne et j'avoue ne pas du tout savoir comment procéder
Je sais que je ne suis pas trés clair donc n'hésitez pas a me demander plus de renseignements.

à bientôt

Probleme résolu en utilisant eval

Code:

1
2
3
 
my $func = ("cmd_".$cmd."(\"$service\", \"$user\", \"@args\")");
eval $func;

Code:

1
2
3
4
5
 
sub cmd_auth {
	my ($service, $user, @args) = @_;
	print "Ca marche\n";
}

Résultat ca marche :)

Maintenant ca ne fonctionne plus, ca doit être un canular ...

alors comme ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
sub parse_cmd {
    my ($service, $user, @message) = @_;
    my $cmd = lc(@message[0]);
    my @args = @message[1..$#message];
 
    if ($service->validcom($cmd)) {
	if (!$user->isauth && $cmd ne 'auth') {
             $service->sendnotice($user, "Accés refusé");
             return
	}
 
	my $func = ("cmd_".$cmd."(\"$service\", \"$user\", \"@args\")");
	eval $func;
	} else {
             $service->sendnotice($user, "Cette commande '$cmd' n'existe pas.");
	}
}
 
sub cmd_auth {
	my ($service, $user, @args) = @_;
	my ($idnick, $password) = (@args[0], @args[1]);
	#my $tmp = $service->{'user'}->{$idnick};
    print "Ok\n";
}

comme ceci ca m'affichie bien 'Ok'
et des que je decommente

Code:

1
2
 
my $tmp = $service->{'user'}->{$idnick};

plus rien ...

12/11/2007, 00h14
Jedai
Utiliser eval() pour faire ce genre de chose c'est se préparer un avenir morose....

Alors qu'il te suffit d'utiliser un hash de références de fonctions :
Code:

1 2 3 4 my %cmd = ( auth => \&cmd_auth, nick => \&cmd_nick, ); #plus loin $cmd{$cmd_name}->( $parametre1, $parametre2, ...);
--
Jedaï
12/11/2007, 14h56
Ganondorf

Salut Jedai,

ca fonctionne merci bien.
13/11/2007, 03h25
Schmorgluck

Des fois je me dis que l'exercice auquel je me suis astreint pour le fun il y a quelques mois, à savoir programmer une calculatrice en ligne de commande sans utiliser une seule fois la commande eval... eh ben, finalement, cet exercice né d'un moment d'ennui m'a obligé à réellement découvrir Perl, en tout cas de solides bases.
Je dis ça ici parce que j'avais vaguement inclu quelques fonctions dans ma calculette.
C'est vraiment le genre d'exercice débile qui fait apprendre plein de choses, Je le recommande à tous les débutants.