RDW #2 - Rätsel der Woche Nr. 2 - #84459 (Allgemeines zu Perl)

Crian

2004-07-19 14:10

User since
2003-08-04
5873 Artikel
ModeratorIn

Deshalb werd ich die Lösungen auch wieder auf den Server stellen, dann kann sie jeder unverfälscht erhalten. Ev. mach ich diesmal auch ein Archiv mit allem, lohnt sich ja langsam ;)\n\n

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