[Perl] Générer des pages html via template...

Marsh Posté le 13-01-2004 à 16:49:59

Bonjour à tous,

Je suis pluôt débutant en Perl (j'ai seulement fait des scripts pour la gestion d'usager LDAP).

Cependant, comme je suis le seul qui connaisse un peu Perl en plus de LDAP, on me demande de faire une couche supplémentaire qui va être utilisé avant le module mod_auth_ldap de Apache afin de pouvoir permettre au usager de changer leur mot de passe si celui ci est expiré.

Comme je devrai afficher la même page avec seulement quelque différences près, j'aimerais connaître le meilleur moyen pour y arriver.

Pour l'instant j'ai trouvé quelques scripts qui remplace automatiquement des mots clés dans un template html. Cependant avant d'utilisé un de ces scripts, j'aimerais être sûr que j'utilise la bonne solution ou la solution la plus standard...

Merci !

Reply

Marsh Posté le 13-01-2004 à 16:49:59

Reply

Marsh Posté le 13-01-2004 à 17:38:41

Regarde du coté de Mason:
http://search.cpan.org/~drolsky/HTML-Mason-1.25/
http://www.masonhq.com/

Reply

Marsh Posté le 13-01-2004 à 18:05:47

Merci!

Edit :

Je commence a regarder le site, cependant cela n'est pas un peu gros pour seulement 5-6 pages ?

Message édité par belzme le 13-01-2004 à 18:08:18

Reply

Marsh Posté le 13-01-2004 à 18:14:26

y a egalement FastTemplate sur perl il me semble.

Reply

Marsh Posté le 13-01-2004 à 18:51:49

disons que c'est al solution la plus standard comme tu la cherchais, mais effectivement c'est un peu extreme pour seulement 5 pages

ya pleins de module de templating html en perl (regarde sur search.cpan.org)

à la limite tu peux meme le faire à la main avec des regexps!

genre dans la page html tu ecrit %%total_facture%%, puis apres tu fais simplement

Code :

my $total_facture = 200;
$html =~ s/%%total_facture%%/$total_facture/g;

ou bien

Code :

$html =~ s/%%total_facture%%/calcul_facture()/ge;
sub calcul_facture {
...
return $facture;
}

ou meme un systeme plus souple:

Code :

my %template = (
total_facture => 200,
garantie => 2,
);
...
$template{date} = localtime();
...
remplace(\$html, \%template);
sub remplace {
my $html_ref = shift;
my $template_ref = shift;
my $template_regexp = join('|', keys %$template_ref);
$$html_ref =~ s/%%($template_regexp)%%/$template_ref->{$1}/g;
}

Message édité par pospos le 13-01-2004 à 18:52:42

Reply

Marsh Posté le 13-01-2004 à 19:39:21

Ok merci bcp, le vais regarder FastTemplate, mais sinon je m'orientais un peu vers la solution que tu me propose, donc je suis content de voir que j'étais sur la bonne voie et tes exemples vont m'aider énormément ! Merci !!!!

Reply

[Perl] Générer des pages html via template...

Sujets relatifs:

Leave a Replay