Zeichenkette auf Übereinstimmung (Muster+*) prüfen (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-11-17 10:50:20
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
1 Gast

[thread]18445[/thread]

submit to reddit

Zeichenkette auf Übereinstimmung (Muster+*) prüfen

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+9 replies
jan99

2013-07-18 16:15
User since
2008-09-18
439 Artikel
BenutzerIn
Hi !

ich habe eine Zeichenkette und die soll auf Übereinstimmung geprüft werden.

Irgendwann will ich mal soetwas prüfen können ...

Quote
stadtauto -> 100% Überstimmung ; wie gesagt keine groß/klein
stadtauto* -> alles was damit beginnt
*stadtauto* -> alles was enthält
*stadtauto -> alles was darauf endet

Ich suche jetzt die passenden 4 Regex die jeweils zur Anwendung kommen werden.

Angefangen habe ich schon einmal, bin aber bis jetzt gescheitert.

So sollte die 100% Üereinstimmung geprüft werden:
Code (perl): (dl )

if ($zeichenkette =~ /stattauto//i/){
Für alles was damit beginnt hatte ich folgendes überlegt:
Code (perl): (dl )

if ($zeichenkette =~ /stattauto.*//i/){
Aber irgendwo ist da noch ein dicker Haken.

Kann mir einer weiterhelfen - vielleicht finde ich so endlich mal den Zugang zum Aufbau von RegEx.

Gruß Jan :-)

modedit Editiert von GwenDragon: Titel geändert
Last edited: 2013-07-18 16:25:52 +0200 (CEST)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +4 replies
- GwenDragon
  
  2013-07-18 16:28
  
  User since
  2005-01-17
  14746 Artikel
  Admin1
  
  Den * im Regex als .* verwenden, das hast du richtig gemacht.
  
  Aber /stattauto//i/ ist kein gültiges Regex.
  Es muss /stattauto/i sein. Ebenso bei den anderen die // und / am Ende ändern..
  
  Ein Regex sieht so aus /REGEXMUSTER/MODIFIZIERER
  Siehe auch perlop Regexp-Quote-Like-Operators und perlre Modifiers
  Last edited: 2013-07-18 16:33:26 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - jan99
    
    2013-07-18 16:51
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    hi!
    
    habe die einfache Variante mal eben ausprobiert und folgendes zusammengestellt.
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
    
    #!/usr/bin/perl use strict; use warnings; my $testwert = 'stattauto'; if ($testwert =~ /stattauto/i){ print " -> uebereinstimmung -> richtig\n"; } else { print " -> KEINE uebereinstimmung -> falsch\n"; } print "\n"; $testwert = 'stattauto luebeck'; if ($testwert =~ /stattauto/i){ print " -> uebereinstimmung -> falsch\n"; } else { print " -> KEINE uebereinstimmung -> richtig\n"; }
    
    Aber warum wird im zweiten IF eine fehlerhafte Übereinstimmung ausgegeben?
    
    Gruß Jan :-)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - payx
      
      2013-07-18 17:09
      
      User since
      2006-05-04
      564 Artikel
      BenutzerIn
      
      Hallo jan99,
      
      die Prüfung in Zeile 13 ist erfolgreich, weil das regex-Muster im String gefunden wird.
      
      Du kannst markieren, dass der String nach dem regex-Muster zu Ende sein muss:
      
      Code (perl): (dl )
      
      if ($testwert =~ /stattauto$/i) {
      
      Wenn Du auch den Anfang auf diese Weise markieren willst, geht das mit ^.
      
      HTH
      Grüße
      payx
    - Linuxer
      
      2013-07-18 17:19
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Mit anderen Worten nochmal beschrieben:
      Dein Test in Zeile 13 prüft nur, ob in $testwert irgendwo der genaue String stattauto enthalten ist; wobei die Groß-/Kleinschreibung ignoriert wird. Daher die Übereinstimmung, die ist korrekt.
      
      Wenn Du prüfen willst, ob $testwert genau Deinen Suchstring enthält, musst Du das Muster "verankern"; das hat Dir payx bereits aufgezeigt.
      
      Wirf ruhig mal einen Blick in die Perldoc, da gibt's Hilfreiches auch zu regulären Ausdrücken ;-)
      perlretut
      perlre
      perlrequick
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +2 replies
- payx
  
  2013-07-18 16:43
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo jan99,
  
  außer dem, was GwenDragon gesagt hat, könnte ein weiterer Haken auch sein, dass Du in Deinem Textbeispiel stadtauto geschrieben hast, in Deiner regex aber stattauto.
  
  Falls beides vorkommen kann, schreibe
  
  Code (perl): (dl )
  
  if ($zeichenkette =~ /sta[dt]tauto/i){
  
  HTH
  Grüße
  payx
  - jan99
    
    2013-07-18 16:54
    
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    hi !
    
    ja mit dem statt habe ich das heute immer ... aber wenn das immer im Beispiel ist, dann unerheblich.
    
    Gruß Jan :-)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +2 replies
- betterworld
  
  2013-07-19 12:01
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  Platzhalter wie .* brauchst Du hier nirgends. Dass vor und nach dem Treffer noch beliebiger anderer Text stehen kann, wird von Regexes in Perl immer akzeptiert. Um das einzugrenzen, kannst Du den Treffer verankern, wie die anderen schon gezeigt haben.
  
  Code: (dl )
  
  1 2 3
  
  /^blah/i; # am Anfang /blah\z/i; # am Ende /blah$/i; # am Ende ODER vor dem Newline am Ende
  
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - GwenDragon
    
    2013-07-19 13:59
    
    User since
    2005-01-17
    14746 Artikel
    Admin1
    
    Ja, bei der Problemstellung damit ist das .* als Regexteil obsolet.
    .* würde ja nur was bringen wenn das menschliche Suchmuster nach * nachfolgende Zeichen hätte.
    Da habe ich zu vorausschauend gedacht.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2013-07-18 16:15.