Utiliser une variable pour appeler une routine ?

**black bulldog** · 12/09/2014, 13h58

Bonjour,

J'ai besoin de faire un script perl qui lance des tests, script qui est appelé en batch avec une option qui contient le nom du test à lancer :

Code :

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

> testeur.pl -test_name TEST_01

Dans mon fichier testeur.pl, je fais une routine par test, et elle s'exécute donc en fonction de celle qui est appellée dans la ligne de commande.

Code :

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

1
2
3
sub TEST_01 { print ("TEST_01"); }
sub TEST_02 { print ("TEST_02"); }
sub TEST_03 { print ("TEST_03"); }

etc.

Comment faire pour sélectionner le bon test en fonction de l'option ?
je peux faire quelque chose du genre :

Code :

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

if $test_name eq 'TEST_01' { TEST_01(); }

Mais si j'ai 300 tests possibles, je ne vais pas écrire 300 fois ma ligne en changeant le numéro du test...

J'ai essayé un seul if avec l'utilisation d'une variable pour appeler la routine de test:

Code :

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

if ($test_name eq 'TEST_01') { $test_name(); }

mais ça ne marche pas ...

Est-ce qu'il n'y a pas plus simple ?
Merci de votre aide
xdebr

**Gardyen** · 12/09/2014, 15h22

as-tu essayé un truc comme

Code :

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

eval("$test_name()");

?

**black bulldog** · 12/09/2014, 16h11

Bonjour Gardyen,

En relisant mon premier message, je me rends compte que tu as mieux compris que moi ce que je voulais

Du coup merci beaucoup pour ta réponse qui fait exactement ce que je voulais (réellement).

XDeBR

**Lolo78** · 12/09/2014, 19h16

Le petit problème est que faire un eval sur du texte provenant de l'extérieur est une faille de sécurité.

Je serais d'avis de créer une table de distribution (un hash ou un tableau contenant des référérences à des fonctions.

Code :

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

1
2
3
4
5
6
 
my %distrib = (
                       "test_1" => sub {print "TEST_01";},
                       "test_2" => sub {print "TEST_02";},
                      # ...
                    );

Ensuite on peut appeler le programme ainsi:

Code :

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

1
2
 
$distrib{test_1}->();

Si les tests sont numérotés comme dans ton exemple, tu peux même construire la table dynamiquement avec un compteur. C'est encore plus simple.

EDIT: ajout de l'exemple ci-dessous

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
 
$ perl -E '$distrib{"test_$_"} = sub {say "TEST_$_";} for 1..9; say "$_ => $distrib{$_}" for sort keys %distrib; say ""; $distrib{"test_$_"}->() for 1..5'
 
test_1 => CODE(0x600068558)
test_2 => CODE(0x600068558)
test_3 => CODE(0x600068558)
test_4 => CODE(0x600068558)
test_5 => CODE(0x600068558)
test_6 => CODE(0x600068558)
test_7 => CODE(0x600068558)
test_8 => CODE(0x600068558)
test_9 => CODE(0x600068558)
 
TEST_1
TEST_2
TEST_3
TEST_4
TEST_5

La première partie affiche la structure de la table de distribution, et la seconde l'exécution des tests 1 à 5.

**dmganges** · 13/09/2014, 17h56

Bonjour,
Pardon de m'immiscer dans la discussion d'autant qu'elle est résolue.

@Lolo78
Ta solution m'intéressant beaucoup je l'ai mise en œuvre et suis tombé sur un effet de bord intéressant et surtout que je n'explique pas

Lorsque j'initialise le hash avec la variable _$

Code :

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

1
2
3
4
my ( %distrib ) = ();
for (1..9) {
	$distrib{"test_$_"} = sub {print "Test avec $_";};
}

ensuite j'ai une anomalie si je tente :

Code :

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

1
2
3
4
# Celui-ci plante : Use of uninitialized value $_ in concatenation (.) or string at argv.pl line 62.
my $Num = 4;
$distrib{"test_$Num"}->();
print "\n\n";

NB les autres accès en boucle avec _$ sont OK

##########

Alors que si j'initialise le hash avec une variable $Num

Code :

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

1
2
3
for my $Num (1..9) {
	$distrib{"test_$Num"} = sub {print "Test avec $Num";};
}

Je n'ai pas le pb :

Code :

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

1
2
3
4
# Celui-ci aussi est enfin OK
$Num = 4;
$distrib{"test_$Num"}->();
print "\n\n";

Voici la totalité du code au cas où je ferai encore une bêtise :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
#!/usr/bin/perl
use warnings;
use strict;
use utf8;
 
ActiverAccents();
 
print "Usage : \n\nperl argv.pl F1 | F2\n\n";
print "\nARGV @ARGV\n\n";
 
my $Fonc = $ARGV[0];
eval("$Fonc()");
 
sub F1 {
	print "Activation F1\n";
}
 
sub F2 {
	print "Activation F2\n";
}
print "\n";
 
# Lolo78 # http://www.developpez.net/forums/d1469246/autres-langages/perl/langage/utiliser-variable-appeler-routine/#post7962807
# Le petit problème est que faire un eval sur du texte provenant de l'extérieur est une faille de sécurité.
# Je serais d'avis de créer une table de distribution (un hash ou un tableau contenant des référérences à des fonctions.
 
my %dist = (
	"test_1" => sub {print "TEST_01";},
	"test_2" => sub {print "TEST_02";},
	# ...
);
# Appel
$dist{test_1}->();
print "\n\n";
 
# Si les tests sont numérotés comme dans ton exemple, tu peux même construire la table dynamiquement avec un compteur. C'est encore plus simple.
 
# Unix # perl -E '$distrib{"test_$_"} = sub {say "TEST_$_";} for 1..9; say "$_ => $distrib{$_}" for sort keys %distrib; say ""; $distrib{"test_$_"}->() for 1..5'
# Win  # perl -E "$distrib{qq'test_$_'} = sub {say qq'TEST_$_';} for 1..9; say qq'$_ => $distrib{$_}' for sort keys %distrib; say qq''; $distrib{qq'test_$_'}->() for 1..5"
 
=pod
test_1 => CODE(0x600068558)
test_2 => CODE(0x600068558)
test_3 => CODE(0x600068558)
test_4 => CODE(0x600068558)
test_5 => CODE(0x600068558)
test_6 => CODE(0x600068558)
test_7 => CODE(0x600068558)
test_8 => CODE(0x600068558)
test_9 => CODE(0x600068558)
 
TEST_1
TEST_2
TEST_3
TEST_4
TEST_5
=cut
 
my ( %distrib ) = ();
for (1..9) {
	$distrib{"test_$_"} = sub {print "Test avec $_";};
}
 
for (sort keys %distrib) {
	print "$_ => $distrib{$_}\n";
}
print "\n\n";
 
# Utilisation en boucle OK
for (4..8) {
	$distrib{"test_$_"}->();
	print "\n";
}
print "\n";
 
# Utilisation simple OK
for (3) {
	$distrib{"test_$_"}->();
	print "\n";
}
print "\n";
 
# Celui-ci plante : Use of uninitialized value $_ in concatenation (.) or string at argv.pl line 62.
my $Num = 4;
$distrib{"test_$Num"}->();
print "\n\n";
 
#############################
 
for my $Num (1..9) {
	$distrib{"test_$Num"} = sub {print "Test avec $Num";};
}
 
for (sort keys %distrib) {
	print "$_ => $distrib{$_}\n";
}
print "\n";
 
# Utilisation en boucle OK
for (4..8) {
	$distrib{"test_$_"}->();
	print "\n";
}
print "\n\n";
 
# Utilisation simple OK
for (3) {
	$distrib{"test_$_"}->();
	print "\n";
}
print "\n";
 
# Celui-ci aussi est enfin OK
$Num = 4;
$distrib{"test_$Num"}->();
print "\n\n";
 
#==============================================================
# Pour avoir les accents sur la console DOS
# http://perl.developpez.com/faq/perl/?page=Terminal#AccentsDOS
#==============================================================
sub ActiverAccents {
	my $encodage;
	# Windows
  	if ( lc($^O ) eq 'mswin32') {
		eval {
			my ($codepage) = ( `chcp` =~ m/:\s+(\d+)/ );
			$encodage = "cp$codepage";
			foreach my $h ( \*STDOUT, \*STDERR, \*STDIN, ) {
				binmode $h, ":encoding($encodage)";
			}
		};	
	}
	else {
		$encodage = `locale charmap`;
		eval {
			foreach my $h ( \*STDOUT, \*STDERR, \*STDIN, ) {
				binmode $h, ":encoding($encodage)";
			}
		};	
	}
  return $encodage;
}
 
###############
# Date et Heure
sub date {
  my $time = shift || time;    #$time par defaut vaut le time actuel
  my ( $seconde, $minute, $heure, $jour, $mois, $annee, $jour_semaine, $jour_annee, $heure_hiver_ou_ete )
    = localtime($time);
  $mois  += 1;
  $annee += 1900;
 
  # On rajoute 0 si le chiffre est compris entre 1 et 9
  foreach ( $seconde, $minute, $heure, $jour, $mois, $annee ) { s/^(\d)$/0$1/; }
  return "Le $jour/$mois/$annee à $heure:$minute:$seconde";
}

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
ARGV F1
 
Activation F1
 
TEST_01
 
test_1 => CODE(0x39d270)
test_2 => CODE(0x39d270)
test_3 => CODE(0x39d270)
test_4 => CODE(0x39d270)
test_5 => CODE(0x39d270)
test_6 => CODE(0x39d270)
test_7 => CODE(0x39d270)
test_8 => CODE(0x39d270)
test_9 => CODE(0x39d270)
 
 
Test avec 4
Test avec 5
Test avec 6
Test avec 7
Test avec 8
 
Test avec 3
 
Use of uninitialized value $_ in concatenation (.) or string at argv.pl line 61.
Test avec
 
test_1 => CODE(0x31cc88)
test_2 => CODE(0x3a0968)
test_3 => CODE(0x3a0ae8)
test_4 => CODE(0x3a0740)
test_5 => CODE(0x3a0908)
test_6 => CODE(0x3a0c98)
test_7 => CODE(0x3a0d40)
test_8 => CODE(0x3a0dd0)
test_9 => CODE(0x3a0f38)
 
Test avec 4
Test avec 5
Test avec 6
Test avec 7
Test avec 8
 
 
Test avec 3
 
Test avec 4

Je ne sais pas si c'est l'âge ou la fatigue, mais je ne vois pas où est le bug

**Lolo78** · 13/09/2014, 20h03

Tu as raison, le code que j'ai présenté marche avec mon exemple (bouclant sur $_), mais ne fait pas vraiment ce que je voulais qu'il fasse:

Code :

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

1
2
3
4
5
6
7
8
9
10
$ perl -wE '$distrib{"test_$_"} = sub {say "TEST_$_";} for 1..9; $distrib{"test_$_"}->() for 1..5;'
TEST_1
TEST_2
TEST_3
TEST_4
TEST_5
~
$ perl -wE '$distrib{"test_$_"} = sub {say "TEST_$_"; } for 1..9; $distrib{"test_4"}->() ;'
Use of uninitialized value $_ in concatenation (.) or string at -e line 1.
TEST_

Le premier cas fonctionne parce que $_ est alimenté par le modificateur for 1..5. Dans le second cas, ça ne fonctionne pas avec "test_4", parce que, dans ce cas, $_ n'est pas utilisé et la fonction anonyme utilise $_ (autrement dit, $_ n'est pas interprété au moment de l'alimentation du hash, mais seulement au moment de l'exécution de la fonction anonyme).

Je vais réfléchir à une autre façon de le faire (si c'est possible).

Utiliser une variable pour appeler une routine ?

Langage Perl

Vue hybride

Discussions similaires

Partager

Partager