optional match (solved) (Allgemeines zu Perl) - Perl-Community.de

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

2024-09-17 04:42:13
Europe/Berlin
Login (Register)
- Preferences
- Statistics
Jemand zu Hause?
0 users online
1 guest

[thread]19152[/thread]

submit to reddit

optional match [solved]

[solved]

Tags: perl5 Similar Threads

Readers: 14

Articles: hide open all | hide show old branches

+3 replies
linuxCowboy

2014-06-16 22:34
User since
2014-01-29
30 articles
BenutzerIn
Code: (dl )

1 2 3

echo 'ax&bx&cx&dx' | PERL5OPT='w M5.10.1' perl -ne 'say "$1$2" if /(a[^&]*).*?(&c[^&]*)?.*/' Use of uninitialized value $2 in concatenation (.) or string at -e line 1, <> line 1. ax
Ich hätte gern Ausgabe ax&cx oder eben nur ax!??
- +2 replies
- Raubtier
  
  2014-06-16 23:05
  User since
  2012-05-04
  1075 articles
  BenutzerIn
  Naja, das liegt daran:
  ax -> $1
  Dann versucht .*? 0 Zeichen zu matchen (passt)
  Dann wird versucht (&c[^&]*)? zu matchen (passt, 0x)
  .* matcht den Rest des Strings.
  
  Also kein $2 da.
  
  Noch ein paar Kommentare:
  - ein .* am Ende einer Regexp ohne Anker ist überflüssig
  - Lösung: du musst anders gruppieren:
  
  Code (perl): (dl )
  
  echo 'ax&bx&xx&dx' | perl -wnE 'say "$1$2" if /(a[^&]*)(?:.*?(&c[^&]*))?/'
  
  - warum PERL5OPT, perl -wnE tuts doch auch?
  - linuxCowboy
    
    2014-06-16 23:39
    
    User since
    2014-01-29
    30 articles
    BenutzerIn
    
    Wow, wäre ich nie drauf gekommen, ich danke dir!
    
    Alles in ()? einzuschließen hatte ich schon versucht. Ich staune dass er _innerhalb_ einer non-capturing group noch etwas captured.
    
    Thank you very much!!

View all threads created 2014-06-16 22:34.