Thread Reguläre Ausdrücke durch anderes ersetzten...
(59 answers)
Opened by ppm1 at 2004-02-16 23:16
statt if not ist ja nun gerade unless da ;)
sonst gibts noch Code: (dl
)
fehler() if $rein !~ m~^\d+$~; und das üble Code: (dl
)
fehler() unless not $rein !~ m~^\d+$~; ;) :p 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 |