PC Magazin Classic XXL Windows Info-Datenbank (Vorschau)

IT PROFESSIONAL
PROGRAMMIERUNG 115
my $CTIME_String = localtime(time);
my $altCookie = $cgi->cookie(-name=>‘letzter_Besuch‘);
my $neuCookie = $cgi->cookie(-name=>‘letzter_Besuch‘,
-value=>$CTIME_String,
-expires=>‘+3M‘,
-path=>‘/‘);
print $cgi->header(-cookie=>$neuCookie),
$cgi->start_html(„Cookie-Test“),
$cgi->p(„Sie waren zuletzt angemeldet am: „,
$altCookie || ‚unbekannt‘),
$cgi->p(„Neuer Besuchszeitpunkt: „, $CTIME_
String),
Tipp 4
Umgebungsdaten auslesen
■ Manchmal ist es wichtig, zur weiteren Verarbeitung Informationen
über den Server oder den benutzten Browser zu erhalten.
Im folgenden Beispiel fragt das Script diese Daten ab und gibt sie in
einer HTML-Tabelle aus. Die Daten werden bei dieser Variante nicht
gespeichert, sondern dem Nutzer zur Verfügung gestellt.
#!/usr/bin/perl
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $cgi = new CGI;
print $cgi->header(),
$cgi->start_html(‚Daten‘),
$cgi->start_table({-border => ‚1‘}),
$cgi->Tr($cgi->th({-align => ‚right‘},‘Script-
URI:‘),
$cgi->td($cgi->url(-full => 1))),
$cgi->Tr($cgi->th({-align => ‚right‘},‘relative
Script-URI:‘),
$cgi->td($cgi->url(-relative => 1))),
$cgi->Tr($cgi->th({-align => ‚right‘},‘Server-
Software:‘),
$cgi->td($cgi->server_software())),
$cgi->Tr($cgi->th({-align => ‚right‘},‘Browser-
Software:‘),
$cgi->td($cgi->user_agent())),
$cgi->end_table(),
$cgi->end_html();
Tipp 5
Datum ermitteln und ausgeben
■ Mit Hilfe des Unix-Befehls date können Sie das aktuelle Datum
auslesen, das vom Webserver übergeben wird. Anschließend geben
Sie über das CGI-Script die ermittelten Daten in HTML aus und können
diese Angaben in Ihre Webseite einbinden.
Das CGI-Programm in Pearl:
#!/usr/bin/perl
$date_command = „/bin/date“;
$date = `$date_command +“%d.%m.%Y“`; chop ($date);
print „Content-type: text/html\n\n“;
print „Das heutige Datum ist der $date „;
print „Vielen Dank für Ihren Besuch!\n“;
Tipp 6
Besucherzähler
Dieses CGI-Script speichert den aktuellen Besucher-Stand in der
Datei counter.log. Bei jedem neuen Aufruf wird daraus der aktuelle
Wert ausgelesen, weitergezählt und erneut gespeichert.
Die Programmierung in Pearl:
#!/usr/bin/perl
$count_file = „/counter.log“;
open (FILE,$count_file);
$counter = ;
$counter++;
close (FILE);
print „Content-type: text/html\n\n“;
print „Besucher Nummer $counter!\n“;
open (FILE,“>$count_file“);
print FILE $counter;
close (FILE);
Tipp 7
Zufallsgenerator
Das Script generiert bei jedem Aufruf einen Zufallswert und verknüpft
diesen mit Dateien im angegebenen Verzeichnis. Statt mit
Bildern können Sie auch mit Musik oder Videos arbeiten. Passen
Sie hierzu die Angabe $type in unserem Pearl-Script an. Die Zahl der
Dateien lässt sich ebenfalls unter $num beliebig anpassen.
#!/usr/bin/perl
$basedir = „/home“;
$dir = „$basedir/random_images“;
$name = „gfx“;
$num = 3;
$type = „image/jpg“;
srand(time|$$);
$nr = int(rand($num)+1);
$file = „$dir/$name$nr.jpg“;
open(INF,$file) || die „Can‘t open $file: $!\n“;
print „Content-type: $type\n\n“;
while() { print }
pk
Der Zufall bestimmt, wie die Hintergrundgrafik aussieht: Überraschen Sie Besucher Ihrer Webseite mit immer neuen Impressionen – unabhängig von
unterschiedlichen Browser-Einstellungen.
www.pc-magazin.de PC Magazin 10/2012