regex: Matching von >:( und :( (Allgemeines zu Perl)

[thread]18003[/thread]

regex: Matching von >:( und :(

Tags: perl5 Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+3 replies
Froschpopo

2012-12-21 02:08

User since
2003-08-15
2653 Artikel
BenutzerIn

Ich habe einen Regex:

/>:\(|:\(|:\|)|:drinking:/

Der soll Smilies wie >:( und :( erkennen.
Jetzt habe ich allerdings das Problem, dass er anstelle des ">:(" den ":(" erkennt da letzterer ja dieselben Zeichen enthält.

Wie kann ich erzwingen, dass er >:( als eigenen Smilie erkennt?

Welche Ausnahmeregel würde man hier beschreiben?
- lichtkind
  
  2012-12-21 03:16
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  Code (perl): (dl )
  
  perl -E "say 1 if '>:(' ~~ / (:\() | (\>:\() | : /x"
  
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
- Linuxer
  
  2012-12-26 12:41
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Ich erkenne Dein Problem nicht wirklich; außerdem ist Dein gezeigter Ausdruck fehlerhaft.
  Du hast eine unmaskierte ) da drin, die auch keine öffnende Entsprechung hat.
  
  Wenn Du eine Liste von Alternativen hast, dann sollte diese auch von Links nach Rechts abgearbeitet werden. Und der erste Treffer ist dann auch der Treffer.
  
  Wenn >:( als Alternative vor :( steht, dann sollte es auch auf ">:(" passen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
  
  #! /usr/bin/perl use strict; use warnings; my $smiley_regex = qr{ ( # Capture the match >:\( | :\( | :\| | :drinking: ) }x; while ( my $line = <DATA> ) { if ( $line =~ $smiley_regex ) { print "$. ", $1, "\n"; } } __DATA__ :-) >:( :o) :-/ :( :drinking:
  
  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!

View all threads created 2012-12-21 02:08.