ParaWiki Paranormal Deutschland e.V.

Änderungen am Artikel: wiki.Sandkasten

von Version 16 nach 17 zurück vor

Bearbeitet durch Heiler Frank Albrecht am 16. Januar 2007
Änderungskommentar: keine Angabe

+#!/usr/bin/perl -w
+
+use strict;
+use CGI::Carp qw(fatalsToBrowser);
+
+my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,
+ $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
+my $CTIME_String = localtime(time);
+$Monat+=1;
+$Jahrestag+=1;
+$Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat;
+$Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag;
+$Stunden = $Stunden < 10 ? $Stunden = "0".$Stunden : $Stunden;
+$Minuten = $Minuten < 10 ? $Minuten = "0".$Minuten : $Minuten;
+$Sekunden = $Sekunden < 10 ? $Sekunden = "0".$Sekunden : $Sekunden;
+$Jahr+=1900;
+my @Wochentage = ("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag");
+my @Monatsnamen = ("","Januar","Februar","März","April","Mai","Juni",
+ "Juli","August","September","Oktober","November","Dezember");
+
+print "Content-type: text/html\n\n";
+print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
+print "<html><head><title>Test-Ausgabe</title></head><body>\n";
+print "Datum (Variante 1): $Wochentage[$Wochentag], der $Monatstag.$Monat.$Jahr \n";
+print "Datum (Variante 2): $Wochentage[$Wochentag], der $Monatstag. $Monatsnamen[$Monat] $Jahr \n";
+print "Uhrzeit (Variante 1): $Stunden.$Minuten Uhr \n";
+print "Uhrzeit (Variante 2): $Stunden.$Minuten:$Sekunden Uhr \n";
+print "Der heutige Tag ist der $Jahrestag. Tag im laufenden Jahr \n";
+print "Als CTIME-Ausgabe lautet dieser Zeitpunkt: $CTIME_String \n";
+$Sommerzeit ? print "Es ist Sommerzeit\n" : print "Es ist Normalzeit (keine Sommerzeit)\n";
+print "</body></html>\n";
+
+
+