Doofes Perl-Anfängerproblem :(

Suchfunktion

Erfahrenes Mitglied
ARGH! Wer lesen kann ist klar im Vorteil.. Hab am Ende eine Leerzeile einfuegen muessen ^^ Thema erledigt.

Hi.

Ich habe folgenden code:
Perl:
#!/usr/local/bin/perl

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

my $Einleitung = "Es geht auch so!";

print "Content-type: text/html\n\n";

print <<"ENDE";

<html><head><title>Testausgabe</title></head><body>
<h1>$Einleitung</h1>
<p>Der Vorteil bei dieser Form ist, dass man viel HTML-Code
auf einmal erzeugen kann, ohne einen einzigen weiteren print-Befehl
in Perl zu notieren. Praktisch beispielsweise auch zum Ausgeben
von JavaScript:</p>
<script type="text/javascript">
document.write("<p>Und die Adresse dieser HTML-Datenquelle lautet: ");
document.write(document.URL+"<\/p>");
</script>
</body></html>
ENDE

Wenn ich das nun ausfuehre, bekomme ich folgende Fehlermeldung:
Can't find string terminator "ENDE" anywhere before EOF at fileadmin/perl/testscript.pl line 10.

Was mache ich falsch?

Ich moechte, dass mein Perl-Script einfach nur den HTML-Kram ausgibt und $Einleitung mit "Es geht auch so!" ersetzt :(

Hiiiilfeeee...

mfg
Suchfunktion
 
Zuletzt bearbeitet:

Neue Beiträge

Zurück