• Unter LINUX gibt es keine Laufwerksbuchstaben! Bei der Entwicklung eines CGI's in einer Win32 Umgebung kann die Laufwerksangabe entfallen sofern sich HTTP Root, CGI-BIN und andere lokale Pfade auf ein und demselben Laufwerk befinden.
• Unter LINUX gibt es den Slash! Für PERL kein Problem in einer Win32 Umgebung, einfach den Slash verwenden (lediglich mit einigen Win32 Modulen muss der Backslash verwendet werden, dann jedoch bitte maskieren).
• Sollen Systembefehle eingesetzt werden, ist zu beachten, dass diese selbstverständlich von System zu System unterschiedlich sind. Mit dem geschickten Einsatz von diversen PERL Modulen lassen sich jedoch manche Systembefehle durch reines PERL ersetzen und das Script erhält somit eine Plattformunabhängigkeit.
• Soll ein Script auch mit verschiedenen Systembefehlen plattformunabhängig gemacht werden, kann die Version des Betriebssystems über die Variable $^O in Kontrollstrukturen aufgearbeitet werden.

Webserver

OmniHTTPd

Activestate

Ultraedit

datum und zeit;name;geschlecht;alter

Während das Geschlecht aus einer Option Bar ausgewählt werden kann und demzufolge immer ein Wert gegeben ist, müssen Name und Alter stets vom Benutzer ausgefüllt werden. Bei fehlenden Eingaben soll das Script eine Fehlermeldung ausgeben.

Script Header schreiben

#!/usr/bin/perl

Die nächsten Zeilen sollten in keinem Script fehlen und werden als Kommentar notiert:

# Verwendungszweck # Autor # Erstellungsdatum # Version

Der nächste Block beinhaltet globale Variablen welche vom Benutzer zu setzen sind, da dieses Script eine Datei beschreibt muss der Benutzer den lokalen Pfad und Dateinamen angeben

# Pfad und Name der Benutzerdatei $ben_dat = "/temp/benutzer.txt";

Libraries verwenden und Script strukturieren

cgi-lib.pl

require "cgi-lib.pl"; print &PrintHeader; # der Content-type... if ( &ReadParse ) { # Wenn eine Eingabe erfolgte...  &einprf; # Eingabe prüfen  &a_html; # Seite bis Body  &write_file; # Datei anlegen und Einträge in Datei schreiben  &quit; # erfolgreiche Eingaben im Browser anzeigen  &z_html; # Seite schließen } else{ # keine Eingabe, Seite aufbauen mit Formular  &a_html; # Seite bis Body  &form; # Eingabeformular  &z_html; # Seite schließen } exit;

Kleine Erläuterung zu diesem Script bisher

Die nachfolgende Kontrollstruktur beinhaltet den Ablauf des CGI's in 2 Blöcken, einmal im Falle einer Benutzereingabe und zum Anderen im Falle dass noch keine Eingabe erfolgte. Diese Kontrollstruktur ist wichtig, weil ja mit einem einzigen CGI Script das Formular gezeigt und die Eingaben verarbeitet werden sollen. Mit ähnlichen Kontrollstrukturen lassen sich später auch kompliziertere Aufgaben lösen, beispielsweise die Verarbeitung unterschiedlicher Formulare oder unterschiedlicher Submit Buttons in einem einzigen CGI!

Dieser Teil der Strukturierung ist entscheidend für das sichere Funktionieren eines CGI's und der Hauptteil des Programmierens eines CGI's überhaupt. Natürlich können die Unterfunktionen noch einiges an Arbeitsaufwand erfordern, aber im Wesentlichen ist das Script an dieser Stelle hier schon fertig.

#---Subfunctions---# # Datei anlegen und Einträge in Datei schreiben sub write_file{  my $zeit = localtime(time);  open FH, ">>$ben_dat" or CgiDie("Fehler beim Anlegen oder Schreiben der Benutzerdatei","$!");  print FH "$zeit;$in{'name'};$in{'sex'};$in{'alter'}\n";  close FH; } # erfolgreiche Eingaben im Browser anzeigen sub quit{ my $zeit = localtime(time); print<<QUIT; <h3>Benutzereingaben erfolgreich gespeichert!</h3> <pre> Datum und Zeit: $zeit Name: $in{'name'} Geschlecht: $in{'sex'} Alter: $in{'alter'} </pre> QUIT } # Eingaben prüfen sub einprf{  if( !$in{'name'} or !$in{'alter'} or $in{'alter'} =~ /[^0-9]/ ){  CgiDie("Fehlerhafte Eingabe","Backbutton klicken und Eingabe wiederholen, Name, Geschlecht und Alter muss angegeben werden. Das Alter bitte als einen ganzzahligen Wert eingeben.");  } } # Formular aufbauen sub form{ print<<FORM; <h3>CGI 4 Beginner, Benutzereingaben in Datei speichern</h3> <pre> <form action="$ENV{SCRIPT_NAME}" method="post"> Bitte Füllen Sie alle Eingabefelder aus Name: <input type="Text" name="name" size="45" > Geschlecht männlich: <input type="Radio" name="sex" value="Maennlich" checked> Weiblich: <input type="Radio" name="sex" value="Weiblich"> Alter: <input type="Text" name="alter" size="3" maxlength="3"> <input type="Submit" name="ok" value="Eingaben speichern"><input type="reset" value="Eingaben verwerfen"> </form> </pre> FORM } # Seite aufbauen bis zum Body sub a_html{ print<<AHTML; <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"> <HTML> <HEAD> <TITLE>CGI 4 Beginner</TITLE> </HEAD> <BODY> AHTML } # Seite schließen sub z_html{ print<<ZHTML; </BODY> </HTML> ZHTML }

Erläuterungen zu den Unterfunktionen