Discussion :

[la bille]

j'aimerais passer le nom d'une fonction par une variable , mais le use strict m'en empeche ( le & qui supprime les declarations ??? )

prog:
my $essai= "fonct";
&$essai();

sub fonct()
{print"ça passe !!!";}

message d'erreur :
can't use string ("fonct") as a subroutine ref while "strict ref"

existe t'il un moyen pour pouvoir faire cela en conservant use strict

merci

[Jeh]

Salut.

Je pense pas que ce soit possible. Un nom de routine n'est pas interprété comme une chaine de caractères, mais ce n'est que mon avis. Et dans ton exemple, il faudrait faire une concaténation déjà car le $essai(), je pense que ça aime pas trop...
Si tu disais exactement ce que tu veux faire, on pourrait peut être t'aider à trouver une autre solution.

[darkloran]

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
 
my %fonctions = (    #listage des fonctions
		"f1" => \&f1,
		"f2" => \&f2,
                 ...
                 "fn" => \&fn,
);
 
 
my $fonction = $type . $n; #construction du nom de la fonction
my $param;
 
if ($fonctions{$fonction}) {  #test de l'existence de la fonction
   my $result = $fonctions{$fonction}->($param);  # appel de la fonction
}

si c'est pas beau ça

[Jeh]

Très très intéressant, j'ai encore beaucoup à apprendre...

[la bille]

c'est pas beau ça monsieur , c'est lumineux !!!

merci darkloran , cette façon de faire m'ouvre d'autres horizons qui m'arrangent fortement.

[Jedai]

Je ne devrais pas le dire , et la solution proposée par Darkloran est la solution à utiliser, mais si on veut vraiment utiliser des références symboliques avec un "use strict;" dans les parages, il faut faire ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
use strict;
my $essai= "fonct";
 
{
  no strict "refs";
  &$essai();
}
 
sub fonct()
{print"ça passe !!!";}

Si on veut déjà être un peu plus propre, on peut faire ainsi :

Code :

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

1
2
3
4
5
6
7
8
 
use strict;
my $essai= \&fonct;
 
&$essai();
 
sub fonct()
{print"ça passe !!!";}

En tout cas, on ne le répêtera jamais assez : les références symboliques, c'est mal !