[quote=Ronnie,18.02.2004, 15:31]
&tuwas() if ($rein =~ m#[+|-|*|/]#);
So in der Art?[/quote]
Ich nehm mal an, Du meinst (?: ... ) statt [ ... ] ?! hmm weder auf diese noch auf die andere Weise wäre deine RE korrekt.
1) - hat Sonderbedeutung in [...]
2) in [...] braucht man kein |, es sei denn Du möchtest das Zeichen | mit in die Klasse aufnehmen (dann reicht aber eine Nennung)
3) Wenn Du doch (?: ... ) meinst, musst Du + escapen (also \+).
Das könnte man ev. noch durch 4 Indexaufrufe beschleunigen.\n\n
<!--EDIT|Crian|1077115551-->
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