Opened by Gast at 2006-01-11 17:22
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Nunja, da wir in einem Perlforum sind, war die Frage wohl so gemeint, wie man in Perl das Datum ermittelt. Strat hat die Antwort nur in einen Einzeiler eingebaut, damit man sie einfach testen kann, denke ich.
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite