Mehrmaliges Matchen in einem Suchstring vermeiden - #78889 (Allgemeines zu Perl)

Crian

2004-01-09 11:05

User since
2003-08-04
5873 Artikel
ModeratorIn

Nein, nimm meine Lösung von oben, ich poste sie nochmal angepasst an Dein Problem:

Code: (dl )

my @treffer;
do {
    my $temp = <STDIN>;
    @treffer = $temp =~ m~(e\d+)~gi;
} while (scalar @treffer != 1); 

print "Usereingabe ist '", $treffer[0], "'\n";

\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