ParaWiki Paranormal Deutschland e.V.

Änderungen am Artikel: wiki.Sandkasten

von Version 17 nach 18 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";
-
-
-