Ein frohes und gesundes neues Jahr wünsche ich euch auch allen!
Und bei der Gelegenheit möchte ich mal sagen, wie sehr ich dieses Forum mag! Die schnelle Hilfe die (leider wenige) Fragende hier erfahren, der nette Umgangston und vieles mehr. Ich entwickle mittlerweile schon seit über einem Jahrzehnt nicht mehr in Perl, sondern in anderen Programmiersprachen. Trotzdem bin ich jeden Werktag (und heute auch offenbar) kurz hier und unterstütze das Forum auch mit einem winzigen, monatlichen Beitrag, einfach weil ich es sehr schätze und für wichtig halte, dass es es gibt. Darum auch dir, liebes Forum, ein frohes neues Jahr! :D
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