Discussion :

[Dimension_N]

Je ne sais pas si mon titre est clair.
J'ai besoin, dans le cadre d'un projet, de charger des modules (.pm) de manière dynamique. C'est à dire que le script principal (.pl) va lire dans un fichier la liste des modules qu'il doit charger. Je récupère donc les modules sous forme de chaines dans des variables. Je les charge avec des "require", puis après, j'essaie d'accéder à des fonctions du module, mais je n'arrive pas à résoudre la portée avec une variable.

J'ai d'abord fait un test simple, la ligne qui ne marche pas est en gras:

Code :

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

1
2
3
4
5
6
7
8
9
10
sub main
{
	my $library = "test_module";	
	printf("Avant chargement du module $library\n");
	require $library.".pm";
	printf("Apres chargement du module $library\n");	
	$library::print_test();
}
 
main();

Est-ce que quelqu'un sait comment mettre en place ce genre de mécanisme ? (J'aimerai que $library soit interprété comme une résolution de portée)

[Jedai]

Utilise juste print_test() et fais le exporter par tes modules à charger (n'oublie pas d'utiliser $library->import() avant).

--
Jedaï

[Dimension_N]

Merci, effectivement, ça marche...
J'ai rempli les tableaux @ISA et @EXPORT dans le module.. et j'ai appelé import() dans le script principal. Je ne savais pas qu'on pouvait le faire.

Dernière question : je vais charger plusieurs modules qui vont respecter la même signature. Dans l'exemple, ce serait un deuxième module qui aurait la même fonction print_test(). Est-ce qu'il ne peut pas y avoir un conflit puisqu'on importe deux mêmes fonctions ? Ou est-ce que c'est géré avec un contexte local ?

J'ai écrit les lignes suivantes, et dans mon cas ça marche, c'est bien la fonction print_test de chaque module qui est appelée... :

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
sub main
{
	my @library;
	$library[0] = "test_module";
	$library[1] = "test_module_deux";
 
	foreach my $elt (@library)
	{
		printf("Avant chargement du module $elt\n");
		require $elt.".pm";
		printf("Apres chargement du module $elt\n");	
		$elt->import();
		print_test();
	}
}
 
main();

Je voudrai comprendre le mécanisme pour commencer à développer mon projet.

En tout cas merci, pour ta réponse, Jedaï.

[Dimension_N]

Bon j'ai un autre problème, mais je vais poster un nouveau sujet.
En tout cas, merci pour la petite aide.

Résolu.