include ?

[Wolfsbein]

Hallo
ich brauche eine PERL Anweisung, die dem include() von PHP entsrpicht. Die Suche hat mir leider nichts gebracht. Normalerweise mache ich nichts mit PERL, aber jetzt muss es schnell sein. Danke.

 

[Arne Buchwald]

sub template {

  my $file;
  my $HTML;
  local($/);
   
  $file = $_[0] || die "Kein Template angegeben!\n";
  open (FILE, "<$file") || die "Kann Template nicht oeffnen: $!\n";
    $HTML = <FILE>;
  close(FILE);
  return $HTML;
}

Aufruf:

  $qq = &template("$templatedir/head.html");

 

[Wolfsbein]

Hmmm ich habe das mal jetzt so gemacht wie du es gesagt hast. Eine Ausgabe versuche ich so:

print &template("bottom.txt");

zu erreichen. Leider bekomme ich da einen Servererror. Ist das falsch?

 

[Arne Buchwald]

Wird der Content-Type vorher ausgegeben ? Und möglichst immer den kompletten, absoluten Pfad nehmen.

Dann passt das schon.