Webbasierte Adressdatenbank
Erzeugen von HTML Code in Perl
Ein erstes Beispiel
jetzt wollen wir ein kleines Perl Programm schreiben, welches über den Web-Server
aufgerufen wird und "Hallo Welt" zurück gibt:
#!/usr/bin/perl -w print "Content-type: text/html\n\n"; print "Hallo Welt";
Wie im Abschnitt HTTP und CGI erläutert, muß das
Perl Programm einen gültigen HTTP Header zurück geben, damit der Browser auch
die Ausgabe anzeigen kann. Geschieht dies nicht, bietet uns der Browser die Ausgabe als
Download an, oder der Web-Server meldet einen 500 Internal Server
Error
was hier soviel bedeutet, wie "kein gültiger HEADER".
Allerdings ist dies noch kein vollständiges HTML Dokument, richtiger wäre:
#!/usr/bin/perl -w print "Content-type: text/html\n\n"; print "<html>"; print "<head><title>Hallo Welt</title></head>"; print "<body>Hallo Welt</body>"; print "</html>";
Mann kann sich die vielen print
Statements sparen wen man ein sogenanntes
HERE
Dokument verwendet:
#!/usr/bin/perl -w print <<HTML; Content-type: text/html <html> <head><title>Hallo Welt</title></head> <body>Hallo Welt</body> </html> HTML
Die print
Anweisung startet mit <<HTML
und
endet mit HTML
. Dabei muß das Ende des HERE
Strings am Anfang einer Zeile stehen. Zeilenvorschübe werden mit ausgegeben.
Zurück zum Anfang dieses Projekts.