Html-Datei mit Perl anzeigen

[dtm]

Hallo

gibt es eine Möglichkeit Html-Seiten per CGI/perl nach dem Motto

if($Text =~ /OK/) 
{ 
  .. zeige html1.htm an
} 
else 
{ 
  .. zeige html2.htm an
}

anzuzeigen

die htmls liegen in verschieden pfaden und u.U. auf anderen Servern

 

[renee]

Natürlich kannst Du auch mit Perl/CGI HTML-Dateien anzeigen/ausgeben. Nur ist mir nicht ganz klar, was das $Text sein soll. Wie wird diese Variable gefüllt?

Mal ein Beispiel Perl/CGI-Skript, dass HTML-ausgibt...

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

# gib einen HTTP-Header aus
print CGI->header;

my $html_file = '/path/to/file.html';

# gib den Inhalt der HTML-Datei aus
open my $html_fh, '<', $html_file or die $!;
print while <$html_fh>;
close $html_fh;

 

[dtm]

Hallo

danke für den Tip

$Text kommt von einer Abfrage vorher
je nach Inhalt der Variable (OK oder schrott) soll die eine oder andere html angezeigt werden.


das funktioniert mit Deinem Code soweit ganz gut, sofern es sich um lokale Dateien (die auf dem gleichen Server sind) handelt.
Nur wie gehe ich mit "externen" Dateien, die auch noch dynamisch mit script und teilweise php sind, um?

 

[renee]

"Entfernte" Dateien kann man nicht mit open öffnen. Ich würde da das Modul LWP::Simple benutzen:

use LWP::Simple;

my $content = get( 'http://url/' );
print $content;

 

[dtm]

das geht insofern auf der "entfernten" Seite nicht wenn dort irgendwelche anderen Seiten mit relativen URLs aufgerufen werden.

wie kann man etwa solchen HTML-Code

<meta http-equiv="refresh" content="0; URL=http://www.xxxx.de/xxx.htm" method="post">

realisieren

oder wie bekomme ich sonst eine fremde Seite ans laufen, auf der JS und CSS mit ralitven Pfaden verwendet wird