Discussion :

[myspanique]

Bonjour à vous,

Pour la création d'un site web, j'ai centralisé la mise en page des ... ben des pages, dans un package.

En gros, ça donne un truc du genre (dans le package) :

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
sub pageType{
	my ($titre) = @_ ;
	print "	<table width='100%'>
		<tr><td colspan = 2>";
		titrePage($titre);
	print "	</td></tr>
		<tr><td width='245px'>";
		menuGauche();
	print "	</td><td rowspan = 3>";
		contenu();
	print "	</td></tr>
		<tr><td>";
		infos();
	print "	</td></tr>
		<tr><td>";
		piedPage();
	print "	</td></tr>
		</table>";
}

titrePage, menuGauche et piedPage sont définis dans le package, exportés et tout comme il se doit.
En revanche, j'aimerais que contenu et infos (qui dépendent uniquement de la page) soient définis dans le script.
Enfin, ils le sont. J'aimerais juste que Perl comprenne qu'il doit les chercher là bas, et non dans la classe !
Est-ce possible? Si oui, comment?
J'ai pensé à les définir "à vide" dans la classe et les redéfinir dans mon script, mais, déjà, je ne suis pas experte en redéfinition, et puis, comme l'appel se fait indirectement, depuis le package, ça n'a pas fonctionné.

Merci d'avance pour votre aide !

[Lolo78]

En revanche, j'aimerais que contenu et infos (qui dépendent uniquement de la page) soient définis dans le script.

Et contenu et infos sont des fonctions, je suppose?

Dans ce cas, il faut sans doute utiliser des fonctions de rappel (ou callback functions). C'est-à-dire que tu passes des fonctions en paramètre à ta fonction.

Dans le programme principal:

Code :

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

1
2
3
4
5
6
 
sub info {
     # code de la fonction à appeler dans le module
}
 
pageType("Titre", \&info); # \&info est une référence vers la fonction info, qui est passée à la fonction pageType

Dans le module:

Code :

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

1
2
3
4
5
6
7
8
9
 
sub pageType {
    my ($titre, $info_coderef) = @_ ;
    #...
    print "	</td></tr>
		<tr><td>";
		$info_coderef->(); # appel de la coderef contenant le code défini dans la fonction info définie dans le programme principal
    # ...
}

Cet exemple est très simple (presque simpliste), mais donne l'idée de base.

Tu trouveras plus d'explications et des exemples plus variés dans la partie relative aux fonctions de rappel de mon tutoriel sur la programmation fonctionnelle.

Cela dit, j'ai expliqué comment résoudre le problème que tu as posé et faire ce que tu voulais faire, mais je ne suis pas sûr que tu aies choisi la meilleure façon de coder une appli Web.

Je ne fais personnellement pas de développement Web, mais, en général, on cherche à séparer le code Perl des données HTML à afficher. Il y a des modules, des templates et de frameworks qui font une grosse partie du travail pour toi (voir par exemple le Template Toolkit et des frameworks comme Dancer, Catalyst, Mojolicious, etc.).

[myspanique]

Ta solution fonctionne au poil, merci !

Et merci aussi pour le conseil : je vais regarder de plus près ce dont tu me parles.