Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]5678[/thread]

vergleich or regex: logikproblemchen ;D (Seite 4)



<< |< 1 2 3 4 >| >> 33 Einträge, 4 Seiten
Crian
 2003-09-01 17:16
#82613 #82613
User since
2003-08-04
5866 Artikel
ModeratorIn
[Homepage]
user image
Oder mit
Code: (dl )
m~^[A-ZÄÖÜa-zäöüß][a-zäöüß]{2,}(?: [A-ZÄÖÜa-zäöüß][a-zäöüß]+)*$~

um auch ganz klein geschriebene Worte darin zu erlauben.
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
Ronnie
 2003-09-01 17:32
#82614 #82614
User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]
wie wäre es mit:
Code: (dl )
/^[a-zA-Z]{3,}\s?[a-zA-Z]*$/
?

Gruss,
Ronnie\n\n

<!--EDIT|Ronnie|1062423199-->
Crian
 2003-09-01 20:03
#82615 #82615
User since
2003-08-04
5866 Artikel
ModeratorIn
[Homepage]
user image
Das erlaubt 1 oder zwei Worte (ohne Umlaute und ß), meines erlaubt beliebig viele durch ein Whitespacezeichen getrennte Worte, welche optional mit einem Großbuchstaben beginnen dürfen.
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
<< |< 1 2 3 4 >| >> 33 Einträge, 4 Seiten



View all threads created 2003-09-01 14:46.