not greedy enough? (Allgemeines zu Perl)

[thread]21207[/thread]

not greedy enough?

Tags: perl5 regex Ähnliche Threads

Leser: 9

Articles: hide open all | hide show old branches

+7 replies
linuxCowboy

2021-07-01 17:37
User since
2014-01-29
30 Artikel
BenutzerIn
Code: (dl )

echo abc | perl -pe 's/(?<!a)(b)*c/x$1c/'
gets abxc not nothing!

Is there a regex (more greedy?) or only the explicit if/elsif?
- +4 replies
- Linuxer
  
  2021-07-01 19:18
  
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  
  Hallo,
  
  das hier ist das Deutsche Forum, Du darfst hier auch in Deutsch schreiben ;-) Hat doch in der Vergangenheit auch geklappt ;-)
  
  Ich erkenne Dein Problem nicht? Was genau willst Du erreichen?
  
  Da das "b" mit "(b)*" optional ist, schlägt der Treffer beim "c" zu, $1 ist leer.
  Das "ab" bleibt unangetastet, dann wird das gefundene "c" mit leeren $1 ersetzt und raus kommt "abxc".
  
  Edit: Typo fixed.
  Last edited: 2021-07-01 20:35:57 +0200 (CEST)
  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!
  - +3 replies
  - linuxCowboy
    
    2021-07-01 19:53
    
    User since
    2014-01-29
    30 Artikel
    BenutzerIn
    
    2021-07-01T17:18:51 Linuxer
    Hallo,
    
    das hier ist das Deutsche Forum, Du darfst hier auch in Deutsch schreiben ;-) Hat doch in der Vergangenheit auch geklappt ;-)
    
    Ja, sorry, ist mir im Nachhinein auch aufgefallen.
    
    Quote
    Ich erkenne Dein Problem nicht? Was genau willst Du erreichen?
    
    Perl soll nichts ausgeben. Die regex-engine soll ihren Job machen und gierig sein wie ein Banker. Jetzt ist es wie (b)*?.
    - haj
      
      2021-07-01 20:22
      
      User since
      2015-01-07
      570 Artikel
      BenutzerIn
      
      Mit -p wird immer $_ ausgegeben. Wenn Du tatsächlich nichts haben willst, müsstest Du den gesamten String in der Regex entfernen lassen oder am Ende $_ überschreiben mit dem, was Du haben willst. Nichts ausgegeben wird also zum Beispiel so (wie vom Linuxer beschrieben, ist $1 in Deinem Fall der Leerstring):
      
      Code: (dl )
      
      echo abc | perl -pe 's/(?<!a)(b)*c/x$1c/; $_ = $1'
    - Linuxer
      
      2021-07-01 20:33
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Perl soll nichts ausgeben? Dann lass den Schalter -p weg! Fertig.
      
      Ansonsten ist die Regex-Engine hier durchaus gierig wie ein Banker.
      Man muss nur verstehen wie sie arbeitet. Denn sie ist zu mehr in der Lage als ein generischer Banker.Sie kann auch einen oder mehr Schritt zurücktreten und versucht es dann solange mit weniger gierigen Varianten, bis es eine Version findet die ein Ergebnis liefern kann. In diesem Fall eben solange, bis das b keine Rolle mehr spielt. Das hast Du ihm aber vorgegeben, indem Du den Quantifier * verwendet hast.
      
      Dann ist der Regex nicht der Anforderung entsprechend.
      
      Suchst Du vielleicht den Quantifier + anstatt * ?
      Vielleicht kannst Du das Pattern verankern?
      
      Code: (dl )
      
      1 2 3 4
      
      $ echo abc | perl -pe 's/(?<!a)(b)+c/x$1c/' abc $ echo abc | perl -pe 's/^(?<!a)(b)*c/x$1c/' abc
      
      Zum Verständnis von Regulären Ausdrücken sei das Buch "Regular Expressions" von Jeffrey Friedl empfohlen; siehe http://regex.info/book.html
      Last edited: 2021-07-01 20:37:57 +0200 (CEST)
      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
- linuxCowboy
  
  2021-07-01 23:55
  User since
  2014-01-29
  30 Artikel
  BenutzerIn
  Danke für die Rückmeldungen!
  
  Ich war nicht exakt genug. Hier nochmal meine gewünschte Ein- und Ausgabe:
  
  Code: (dl )
  
  1 2
  
  echo other-abc | perl -pe 's/(?<!a)((b)*c)/x$1/' other-abxc # gewünscht: other-abc
  
  other ist nicht relevant, aber a ist nicht der Anfang;
  da ich auf kein a teste soll er das x nicht einsetzen!
  und er soll den String - unverändert - wieder ausgeben
  
  Code: (dl )
  
  1 2
  
  echo abbc | perl -pe 's/(?<!a)((b)*c)/x$1/' abxbc # gewünscht: abbc
  
  Code: (dl )
  
  1 2
  
  echo dbc | perl -pe 's/(?<!a)((b)*c)/x$1/' dxbc
  
  jetzt einfügen!
  
  Code: (dl )
  
  1 2
  
  echo dc | perl -pe 's/(?<!a)((b)*c)/x$1/' dxc
  
  dito.
  
  Die letzten zwei funktionieren.
  
  ...
  
  Und die ersten zwei: wahrscheimlich ist es so dass er zwar greedy ist, aber nicht so sehr das der Ausdruck nicht mehr passt.
  Er gibt das b ab was er eigentlich mampfen könnte, das ist dann kein a und er zeigt mir den Finger :-|
  
  (Obwohl - bei einem echten Banker würde das anders laufen. Da gibt keiner freiwillig was ab... ;)
  - linuxCowboy
    
    2021-07-02 11:40
    
    User since
    2014-01-29
    30 Artikel
    BenutzerIn
    
    Damned!
    
    perl -pe 's/(?<!a)(?<!b)((b)*c)/x$1/'
    
    Man muss ihn at gunpoint halten, wie uns Jack Bauer lehrt (hilft auch beim Banker;).
    
    Das hilft ihm seine Prioritäten neu zu ordnen.
    
    :-)

View all threads created 2021-07-01 17:37.