Opened by EagleFox at 2006-04-12 12:13
User since
2003-08-04
5872 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5872 Artikel
ModeratorIn
Naja mit File::Basename kann man den Namen aber auch nicht am letzten Punkt auftrennen... und das ist ein ziemlich einfach regulärer Ausdruck. Den kann man auch als Anfänger mit wenig Einlesen leicht verstehen.
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