Inkludere html fra flere forskellige filer.

Det er det da...

Du kan have Hovedet liggende i en fil, brødteksten i en anden og foden i en tredje. Med en parameter til scriptet fortæller du bare hvilken brødtekst du ønsker og vola....

ex:
open (FILE, "<hoved.txt") or die "bla bla, $! ikke fundet";
print <FILE>;
close (FILE);

open (FILE, "<" . $fil_fra_parameter) or die "bla bla, $! ikke fundet";
print <FILE>;
close (FILE);

open (FILE, "<fod.txt") or die "bla bla, $! ikke fundet";
print <FILE>;
close (FILE);

hvor hoved.txt indeholder hovedet (menuer osv), fod.tx indeholder afsluttende ting (</html> osv) og $fil_fra_parameter er er fil der bliver angivet som parameter til scriptet, fx:
http://www.tjaa.dk/side.cgi?side=side2.html

Michael

kan du give mig en mere nøjagtig kode. jeg ved ikke så meget om perl, og ville derfor gerne have at du evt. gav mig et eksempel på en helt fil. bla hvordan du læser parametre.

-------- HERFRA ---------

#!/usr/bin/perl
@Params = split(/&/,$ENV{'QUERY_STRING'});
foreach $Index (0 .. $#Params)
  {
  $Params[$Index] =~ s/\+/ /g;
  ($Key, $Val) = split(/=/,$Params[$Index],2);
  $Key =~ s/%(..)/pack("c",hex($1))/ge;
  $Val =~ s/%(..)/pack("c",hex($1))/ge;
  $Params{$Key} = $Val;
}
$side = $Params('side');
if ($side eq "")
{
  # Sørger for at hvis der ikke angives nogen parameter vises der
  # automatisk index.html
  $side = "index.html";
}
print "content-type: text/html\n\n";

open (FILE, "<hoved.txt") or die "bla bla, $! ikke fundet";
print <FILE>;
close (FILE);

open (FILE, "<" . $side) or die "bla bla, $! ikke fundet";
print <FILE>;
close (FILE);

open (FILE, "<fod.txt") or die "bla bla, $! ikke fundet";
print <FILE>;
close (FILE);

------- HERTIL -------

Burde virke, har ikke lige testet det (for evt. tastefejl)

Michael

Tillykke med Spørgsmål nr. 6000 !

WANGEREN var her.. .,'¨´,.

TILLYKKE MED DE 6000