Discussion :

[byrdo]

Bonjour,

j'ai une fonction telle que ceci :

Code :

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

1
2
sub MyFonctionTruc {
}

J'ai plusieurs fonctions (MyFonctionTruc, MyFonctionMachin).

En parsant un fichier de configuration, je récupère dans une variable les valeurs comme "Truc", "Machin", et je voudrais les utiliser en les concaténant avec la chaine de caractère "MyFonction", afin de pouvoir appeler les fonctions MyFonctionTruc, MyFonctionMachin.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub Recup {
 
        my $type = shift;
        my $variable = shift;
        print "TYPE : $type\n";#TYPE : Truc
 
        my $val = 'MyFonction'.$type;
 
        my $n = $val($variable);
 
        return $n;
 
 
}

Le code ne marche pas, mais ça permet de donner une idée de ce que je veux faire, en espérant que quelqu'un pourra m'aider.

Merci.

[Jasmine80]

En attendant de trouver mieux, tu peux toujours utiliser & pour forcer la reconnaissance de ta fonction ... mais Perl n'est pas contant et cela ne fonctionne qu'en enlevant les remarques 'refs' du pragma strict.

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
26
27
28
29
#!/usr/local/bin/perl
 
use strict;
use warnings;
 
 
my $n = Recup ('Add10', 5);
print "=> $n\n";
 
 
sub MyFonctionAdd10 {
 
        my $var = shift;
        my $n = $var + 10;
 
        return $n;
}
 
sub Recup {
 
        my $type = shift;
        my $variable = shift;
        my $val = 'MyFonction'.$type;
 
        no strict 'refs'; 
	 my $n =  &$val($variable);
 
        return $n;
}

[byrdo]

Bonjour,

Tu as bien saisi ce que j'essaie de faire, j'ai testé en ajoutant le "&", et la ligne pour ne pas prendre en compte les remarques sur les refs, et ça fonctionne.

Par contre, si effectivement ce n'est pas vraiment une solution idéale, je vais continuer à prospecter, et laisser le sujet ouvert, au cas où quelqu'un aurait une solution plus propre, pour que Perl soit content.

Merci pour ton aide en tout cas, cette astuce me resservira à coup sûr.

[Jedai]

Il est beaucoup plus propre d'utiliser un hash :

Code :

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

1
2
3
4
5
6
my %funcs = ( Truc => \&FunctionTruc, Bidule => \&FunctionBidule );
 
sub Command {
  my $name = shift;
  $funcs{$name}->();
}

De plus tu peux facilement rajouter un test pour vérifier que la fonction est bien dans le hash (exists()).

--
Jedaï

[byrdo]

Il est beaucoup plus propre d'utiliser un hash :

Code :

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

1
2
3
4
5
6
my %funcs = ( Truc => \&FunctionTruc, Bidule => \&FunctionBidule );
 
sub Command {
  my $name = shift;
  $funcs{$name}->();
}

De plus tu peux facilement rajouter un test pour vérifier que la fonction est bien dans le hash (exists()).

--
Jedaï

Merci beaucoup Maitre Jedai, ça fonctionne très bien, j'ai utilisé tellement de table de hash avant dans mon code que je me demande pourquoi je n'ai pas fait ainsi avant.