#!/usr/bin/perl
# Einbinden der Module
use CGI::Carp qw(fatalsToBrowser);
use strict;
use CGI;
use DBI;
# Verbindung zur Datenbank herstellen
my $db=DBI->connect('dbi:mysql:Datenbankname', 'Benutzername', 'Passwort') || die "Kann keine Verbindung zur Datenbank herstellen: $DBI::errstr";
my $http=new CGI;
my $von_stunde='20';
my $bis_stunde='21';
print "Content-type: text/html\n\n";
my $query = $db->prepare("select DATE_FORMAT(tabA.Datum, '%H:%i'), tabB.Titel_de
FROM tabA, tabB
WHERE (tabA.Datum BETWEEN (interval ? hour + current_date) AND (interval ? hour + current_date))
AND (tabA.ID = tabB.ID)
ORDER BY tabA.Datum");
print $db->errstr; #Errorstring
$query->execute($von_stunde, $bis_stunde);
while(my @daten = $query->fetchrow_array){
# ---> Sonderzeichen escapen
@daten = map CGI::escapeHTML($_), @daten;
print [..]
}
# Datenbank-Verbindung beenden
$db->disconnect();
exit;