Inclusion fichier HTML

bonjour,

À (at) Wed, 26 Oct 2005 22:45:56 +0100,
"Slyv" <ffadventure@free.fr> nous disait (told us):

Bonjour,

je suis un petit newbie dans le monde du PERL, et je cherche l'équivalent en
PERL de la fonction include en PHP ...

en effet, j'ai un site à réaliser en perl, avec un menu et une bannière, et
je voudrais mettre tout le code commun dans un fichier HTML et l'appeler
(via un include ou autre si y'a une autre méthode dispo en perl), sur mes
autres pages

any idea ?

ceci marche, mais j'imagine qu'il y a plus élégant :

### begin extrait
use CGI qw(param Dump delete) ;
use CGI::Carp ('fatalsToBrowser');

my $q = new CGI;
my $line;
my $NomCgi = "nom_du.cgi";
my $file = "fichier.html";
my $html;
open my $a, "<", $file or
die "Could not find file $filen";
while (defined ($line = <$a>)) {
$html .= $line;
}
close $a;

print $html;
### end extrait

--
Thomas vO - <http://perso.enstimac.fr/~vanouden/>

Slyv wrote:

je suis un petit newbie dans le monde du PERL, et je cherche l'équivalent en
PERL de la fonction include en PHP ...

en effet, j'ai un site à réaliser en perl, avec un menu et une bannière, et
je voudrais mettre tout le code commun dans un fichier HTML et l'appeler
(via un include ou autre si y'a une autre méthode dispo en perl), sur mes
autres pages

Bienvenu dans le monde des systemes de "template" Perl.

Cherche dans les modules Text::Template, HTML::Template ou Template-Toolkit,

Regarde dans les tutorials de PerlMonks:
http://perlmonks.org/index.pl?node=Tutorials#network ou cherche juste
HTML Template sur le site

Perl.com a aussi un vieil article, qui ne couvre pas tous les modules:
http://www.perl.com/lpt/a/2001/08/21/templating.html

Pour faire "juste" du "server-side include", regarde Apache::SSI (avec
Apache et mod_perl).

Comme tu es nouveau, d'une maniere generale, le site pour trouver des
modules est search.cpan.org.

--
mirod

Bienvenu dans le monde des systemes de "template" Perl.

Cherche dans les modules Text::Template, HTML::Template ou Template-Toolkit,

Choosing a Templating System
http://perl.apache.org/docs/tutorials/tmpl/comparison/comparison.html

--
Patrick Mevzek . . . . . . Dot and Co (Paris, France)
<http://www.dotandco.net/> <http://www.dotandco.com/>
Dépêches sur le nommage <news://news.dotandco.net/dotandco.info.news>

Merci pour vos réponses.

J'ai maintenant un autre problème que je mets dans un nouveau topic.

Bonne continuation

Slyv
"Patrick Mevzek" <pm-N200510@nospam.dotandco.com> a écrit dans le message de
news: pan.2005.10.27.10.50.40.403366@nospam.dotandco.com...

Bienvenu dans le monde des systemes de "template" Perl.

Cherche dans les modules Text::Template, HTML::Template ou
Template-Toolkit,

Choosing a Templating System
http://perl.apache.org/docs/tutorials/tmpl/comparison/comparison.html

--
Patrick Mevzek . . . . . . Dot and Co (Paris, France)
<http://www.dotandco.net/> <http://www.dotandco.com/>
Dépêches sur le nommage <news://news.dotandco.net/dotandco.info.news>