Import.wikiTestartikel
Version 17 (16.1.2007) zurück vor
1) !/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<br>\n";
print "Datum (Variante 2): $Wochentage[$Wochentag], der $Monatstag. $Monatsnamen[$Monat] $Jahr<br>\n";
print "Uhrzeit (Variante 1): $Stunden.$Minuten Uhr<br>\n";
print "Uhrzeit (Variante 2): $Stunden.$Minuten:$Sekunden Uhr<br>\n";
print "Der heutige Tag ist der $Jahrestag. Tag im laufenden Jahr<br>\n";
print "Als CTIME-Ausgabe lautet dieser Zeitpunkt: $CTIME_String<br>\n";
$Sommerzeit ? print "Es ist Sommerzeit\n" : print "Es ist Normalzeit (keine Sommerzeit)\n";
print "</body></html>\n";
Diesen violetten Kasten hier oben fügt das Wiki selbstständig ein.
Testneu............
Test font mit Farbe
<font color="blue">in blau</font>
extern-Link:
http://www.paranormal.de/wiki/obe
Buch aus Buchladen
Buch aus Buchladen
Internet: www.internet.com
www.link.de
Version 17 (16.1.2007) zurück vor
1) !/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<br>\n";
print "Datum (Variante 2): $Wochentage[$Wochentag], der $Monatstag. $Monatsnamen[$Monat] $Jahr<br>\n";
print "Uhrzeit (Variante 1): $Stunden.$Minuten Uhr<br>\n";
print "Uhrzeit (Variante 2): $Stunden.$Minuten:$Sekunden Uhr<br>\n";
print "Der heutige Tag ist der $Jahrestag. Tag im laufenden Jahr<br>\n";
print "Als CTIME-Ausgabe lautet dieser Zeitpunkt: $CTIME_String<br>\n";
$Sommerzeit ? print "Es ist Sommerzeit\n" : print "Es ist Normalzeit (keine Sommerzeit)\n";
print "</body></html>\n";
Diesen violetten Kasten hier oben fügt das Wiki selbstständig ein.
Testneu............
Test font mit Farbe
<font color="blue">in blau</font>
extern-Link:
http://www.paranormal.de/wiki/obe
| Index 1 Ãœberschrift 1! 2 !Ãœberschrift 2!! 3 !!Ãœberschrift 3!!! 4 !!!Ãœberschrift 4!!!! 5 Buchtipps! 6 Quellen! 7 Links! |
Überschrift 1!
!Überschrift 2!!
!!Überschrift 3!!!
!!!Überschrift 4!!!!
Buchtipps!
Buch aus Buchladen
Quellen!
Buch aus Buchladen
Internet: www.internet.com
Links!
www.link.de
Der Quelltext dieses Artikels steht unter der GNU-Lizenz für freie Dokumentation.
Die Liste der Autoren ist hier zu finden.
Die Liste der Autoren ist hier zu finden.