User since
2003-08-04
5873
Artikel
ModeratorIn
Verwende besser
local $/.
Ich hoffe für Mia mal, dass sie nicht so viele Aufgaben bekommt, dass deren Aufgabenstellung nicht mehr in den Speicher ihres Rechners passt ;-)\n\n
<!--EDIT|Crian|1086618596-->
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
User since
2004-06-01
12
Artikel
BenutzerIn
Hallo,
leider kann ich es nicht überprüfen... mein Rechner macht gar nichts. Ich habe copy&paste gemacht und die Dateinamen angepasst, aber bekomme kein Ergebnis...
Aber vielen lieben Dank!!!!
Mia
User since
2003-08-04
5873
Artikel
ModeratorIn
Dann poste mal genau das Programm, das Du hast laufen lassen und die Datei, auf die Du es anwendest.
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