Regulären Ausdruck als Übergabe aus Formular - #54581 (Allgemeines zu Perl)

Crian

2005-05-04 17:39

User since
2003-08-04
5875 Artikel
ModeratorIn

Sei mal nicht so schlecht gelaunt, wir sind hier kein bezahlter Helpdesk. Ich hab ja die Antwort erst noch ausprobieren wollen, ist inzwischen oben reineditiert.

Statt

Code: (dl )

1
2
3

for ($test) {
   eval "$re";
}

kannst Du aber auch

Code: (dl )

   $text =~ eval "$re";

sagen.\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