vergleich or regex: logikproblemchen ;D (page 3) (Allgemeines zu Perl)

Relais

2003-09-01 16:49

User since
2003-08-06
2254 articles
ModeratorIn

[quote=Froschpopo,01.09.2003, 14:44]anscheinend nicht, sonst würde es ja funktionieren...

Code: (dl )

   if($depot_owner_first =~ /^[a-zA-Z]{3,}$/g)
   {
      $msg .= "Vorname ungültig<br>";
   }

[/quote]
Keine Gnade für Günther und Sönke?

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop 12. bis 14. Mai 2025 in München.

Winter is Coming

jan

2003-09-01 16:49

User since
2003-08-04
2536 articles
ModeratorIn

genau, nochmal zur erklärung:
/^[a-zA-Z]{3,}$/
bedeutet soviel wie: beginne am anfang des strings (/^), schaue, ob bis zum ende des strings ($/) mindestens 3 zeichen aus der gruppe a-zA-Z stehen.

Froschpopo

2003-09-01 16:49

User since
2003-08-15
2653 articles
BenutzerIn
[default_avatar]

Okay jetzt funzts! Aber es gibt auch Namen mit einem leerzeichen, wie kann ich das jetzt in die Liste mit aufnehmen? Allerdings dürfen keine zwei leerzeichen hintereinander vorkommen

Ronnie

2003-09-01 17:00

User since
2003-08-14
2022 articles
BenutzerIn
[default_avatar]

Achte auf die Negation der Bedingung!

Code: (dl )

$msg = ($depot_owner_last !~ /^\w{3,}/) ? 'Falsch!' : 'Okay!';

Ergänzung:

Code: (dl )

$depot_owner_last =~ s/\s+/_/go;

ersetzt alle Whitespaces durch ein einzelnes '_'.

Gruss,
Ronnie\n\n

Froschpopo

2003-09-01 17:03

User since
2003-08-15
2653 articles
BenutzerIn
[default_avatar]

Hi, aber \w schliesst den _ mit ein und so einer darf in einem Name nicht vorkommen

Ronnie

2003-09-01 17:09

User since
2003-08-14
2022 articles
BenutzerIn
[default_avatar]

Wenn man es wirklich so einschränken will ist sicher das [a-zA-Z] am sinnvollsten.

Gruss,
Ronnie\n\n

Crian

2003-09-01 17:11

User since
2003-08-04
5873 articles
ModeratorIn

[a-zA-ZäöüßÄÖÜ]

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

jan

2003-09-01 17:11

User since
2003-08-04
2536 articles
ModeratorIn

Code: (dl )

$msg = ($depot_owner_last !~ /^\w{3,}/) ? 'Falsch!' : 'Okay!';

hat aber ebenfalls wieder das $ am ende nicht dabei und prüft somit nur, ob am anfang des strings 3 wortzeichen sind....

Crian

2003-09-01 17:12

User since
2003-08-04
5873 articles
ModeratorIn

wie wäre es denn mit m~^[A-ZÄÖÜ][a-zäöüß]{2,}$~ ?

Oder mit

Code: (dl )

m~^[A-ZÄÖÜ][a-zäöüß]{2,}(?: [A-ZÄÖÜ][a-zäöüß]+)*$~

um mehrere Worte jeweils mit einem Blank getrennt zuzulassen?\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

Froschpopo

2003-09-01 17:16

User since
2003-08-15
2653 articles
BenutzerIn
[default_avatar]

wie ich schon sagt, was ist mit Vornamen wie "Sarah Anna"? Die werden dann abgelehnt weil sie ein Leerzeichen haben.