2
Wie kann ich einem Linux Client eine Html-Datei per CGI-Script liefern.
Guten Morgen, ich habe eine Frage zum Thema CGI-Script.
Also es geht um folgendes:
Ich habe einen Sles 11.1 Server der mit Apache2 und passendem CGI-Modul konfiguriert ist. Ich muss ein Perl script schreiben das einem Linux-Clienten im Netzwerk eine Html datei liefert die Hello World ausgibt.
Da ich leider nicht viel Ahnung von Perl bzw CGI-Scripting habe hofe ich ihr könnt mir weiter helfen.
Vielen Dank im Voraus
Christian
Also es geht um folgendes:
Ich habe einen Sles 11.1 Server der mit Apache2 und passendem CGI-Modul konfiguriert ist. Ich muss ein Perl script schreiben das einem Linux-Clienten im Netzwerk eine Html datei liefert die Hello World ausgibt.
Da ich leider nicht viel Ahnung von Perl bzw CGI-Scripting habe hofe ich ihr könnt mir weiter helfen.
Vielen Dank im Voraus
Christian
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 146581
Url: https://administrator.de/contentid/146581
Ausgedruckt am: 23.11.2024 um 00:11 Uhr
2 Kommentare
Neuester Kommentar
Hi !
Meinst Du nicht, dass ein CGI/Perl-Kurs, den Rahmen dieses Forums "leicht" sprengt? Guggst Du hier. Wenn Du das Beispiel noch mit HTML-Tags kombinierst, hast Du vermutlich das was Du suchst....Perl ist bei mir schon ein paar Jährchen her...
mrtux
Meinst Du nicht, dass ein CGI/Perl-Kurs, den Rahmen dieses Forums "leicht" sprengt? Guggst Du hier. Wenn Du das Beispiel noch mit HTML-Tags kombinierst, hast Du vermutlich das was Du suchst....Perl ist bei mir schon ein paar Jährchen her...
mrtux
Hey ich habe es hinbekommen.
Mein CGI(Perl) Script sieht wie folgt aus:
#!/usr/bin/perl -w
use strict;
use CGI -no_xhtml;
use CGI::Carp qw(fatalsToBrowser);
my $cgi = new CGI;
my $Autor = "Christian Rehbein";
print $cgi->header(),
$cgi->start_html({-dtd => '-W3CDTD HTML 4.01 TransitionalEN',
-title => 'Hello World '})."\n",
$cgi->h1('Hello World ')."\n",
$cgi->p('Hello World')."\n",
$cgi->hr({-noshade => undef, -size => '1'})."\n",
$cgi->p({-style => 'color:red'}, "Autor: ", $cgi->em($Autor))."\n",
$cgi->end_html();
Und die HTML-Ausgabe des Scripts ist diese:
<!DOCTYPE html
PUBLIC "-W3CDTD HTML 4.01 TransitionalEN">
<html lang="en-US"><head><title>Hello World </title>
</head>
<body>
<h1>Hello World </h1>
<p>Hello World</p>
<hr size="1" noshade>
<p style="color:red">Autor: <em>Christian Rehbein</em></p>
</body>
</html>
Ziel erreicht trotzdem vielen Dank
Gruß
Chris
Mein CGI(Perl) Script sieht wie folgt aus:
#!/usr/bin/perl -w
use strict;
use CGI -no_xhtml;
use CGI::Carp qw(fatalsToBrowser);
my $cgi = new CGI;
my $Autor = "Christian Rehbein";
print $cgi->header(),
$cgi->start_html({-dtd => '-W3CDTD HTML 4.01 TransitionalEN',
-title => 'Hello World '})."\n",
$cgi->h1('Hello World ')."\n",
$cgi->p('Hello World')."\n",
$cgi->hr({-noshade => undef, -size => '1'})."\n",
$cgi->p({-style => 'color:red'}, "Autor: ", $cgi->em($Autor))."\n",
$cgi->end_html();
Und die HTML-Ausgabe des Scripts ist diese:
<!DOCTYPE html
PUBLIC "-W3CDTD HTML 4.01 TransitionalEN">
<html lang="en-US"><head><title>Hello World </title>
</head>
<body>
<h1>Hello World </h1>
<p>Hello World</p>
<hr size="1" noshade>
<p style="color:red">Autor: <em>Christian Rehbein</em></p>
</body>
</html>
Ziel erreicht trotzdem vielen Dank
Gruß
Chris
