#!/usr/bin/perl 
# Einbinden der Module 
use CGI::Carp qw(fatalsToBrowser); 
use strict; 
use CGI qw(-no_xhtml);  
use DBI; 
 
# Verbindung zur Datenbank herstellen 
my $db=DBI->connect('dbi:mysql:Datenbank;localhost','Benutzer','Passwort'); 
my $http=new CGI; 
 
my $von_stunde='16'; 
my $bis_stunde='17'; 
 
# HTTP-Header ausgeben 
print $http->header(); 
print $http->start_html(); 
 
my $query = $db->prepare("select datum, ereignis FROM kalender WHERE datum BETWEEN (interval ? hour + current_date) AND (interval ? hour + current_date) ORDER BY datum"); 
 
print $db->errstr; #Errorstring 
$query->execute($von_stunde, $bis_stunde); 
 
 
while(my @zeile = $query->fetchrow_array){ 
	print $zeile[0], $zeile[1], "<br>\n"; 
} 
 
 
# Datenbank-Verbindung beenden 
$db->disconnect(); 
 
# HTML-Dokument beenden  
print $http->end_html(); 

#!/usr/bin/perl 
 
my $tag = 86400; 
 
my $heute = time; 
 
my $wtag = (localtime($heute))[6]; 
 
my $korrektur = $wtag ? (7 - $wtag) : 0; 
print "vorvorige Woche   : ", scalar localtime($heute + $korrektur*$tag - 14*$tag), "\n"; 
print "vorige Woche      : ", scalar localtime($heute + $korrektur*$tag - 7*$tag), "\n"; 
print "Aktuell           : ", scalar localtime($heute + $korrektur*$tag), "\n"; 
print "nächste Woche     : ", scalar localtime($heute + $korrektur*$tag + 7*$tag), "\n"; 
print "übernächste Woche : ", scalar localtime($heute + $korrektur*$tag + 14*$tag), "\n"; 

my $wtag = (localtime($heute))[6]; 

my $korrektur = $wtag ? (7 - $wtag) : 0; 
in 
my $korrektur = $wtag ? (3 - $wtag) : 0; 

my $wtag = (localtime($heute))[7];  
my $korrektur = $wtag ? (5 - $wtag) : 0; 

#!/usr/bin/perl -w 
use CGI::Carp qw(fatalsToBrowser); 
use CGI; 
use strict; 
 
my (undef, undef, undef, $Monatstag, $Monat, $Jahr, $Wochentag, undef, undef) = localtime(time); 
 
$Monat+=1; 
$Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat; 
$Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag; 
$Jahr+=1900; 
 
my @Wochentage = ("Sonntag", "Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag"); 
my @Monatsnamen = ("", "Januar", "Februar", "M&auml;rz", "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember"); 
 
print "Content-type: text/html\n\n"; 
print "$Wochentage[$Wochentag], $Monatstag.$Monat.$Jahr<br>\n"; 

#!/usr/bin/perl 
 
 
$wochentag = 3; # 0:So 1:Mo 2:Di 3:Mi 4:Do 5:Fr 6:Sa 
 
my $tag = 86400;  
my $heute = time;  
$heute = $heute - $heute % $tag + $tag / 2; 
my $wtag = (localtime($heute))[6];  
my $korrektur = ($wtag ? (7 - $wtag) : 0) + $wochentag;  
 
print "vorvorige Woche   : ", scalar localtime($heute + $korrektur*$tag - 14*$tag), "\n";  
print "vorige Woche      : ", scalar localtime($heute + $korrektur*$tag - 7*$tag), "\n";  
print "Aktuell           : ", scalar localtime($heute + $korrektur*$tag), "\n";  
print "nächste Woche     : ", scalar localtime($heute + $korrektur*$tag + 7*$tag), "\n";  
print "übernächste Woche : ", scalar localtime($heute + $korrektur*$tag + 14*$tag), "\n";