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.