Discussion :

[Ganondorf]

salut à tous,

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

Je recoi un message du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Ganondorf]

Probleme résolu en utilisant eval

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Résultat ca marche

[Ganondorf]

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

alors comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

plus rien ...

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
my %cmd = ( auth => \&cmd_auth, nick => \&cmd_nick, );
 
#plus loin
$cmd{$cmd_name}->( $parametre1, $parametre2, ...);

--
Jedaï

[Ganondorf]

Salut Jedai,

ca fonctionne merci bien.

[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.