Rechnen in Mustersuche möglich? (gelöst) (Allgemeines zu Perl)

[thread]15129[/thread]

Rechnen in Mustersuche möglich? [gelöst]

Leser: 17

Articles: hide open all | hide show old branches

+8 replies
Sven_123

2010-06-11 15:57
User since
2010-06-01
120 Artikel
BenutzerIn
Hallo,
ich versuche mich grad an einer Mustersuche in der ich an zwei Stellen variable Werte stehen habe. Ausgeben möchte ich aber nur bestimmte Kombinationen, weshalb ich versucht habe eine Rückwärtsreferenz auf die erste Stelle an der zweiten umzurechnen. Leider erfolglos.

Ein Beispiel:
Ich habe 2 Tafeln Schoki und 1 Gummibärchen.
Ich habe 3 Tafeln Schoki und 2 Gummibärchen.
Ich habe 4 Tafeln Schoki und 2 Gummibärchen.
Code: (dl )

if (/([1-9]) Tafeln Schoki und (\1-1)/) {print "passt\n"}
Ich möchte hier also bei den ersten beiden Zeilen ein "passt" bekommen. Ich hab schon soviel herausbekommen, dass das Problem nicht bei der Rückwärtsreferenz, sondern der Rechnung selbst liegt. Da ich weder im Lamabuch, noch im Internet was dazu gefunden habe, frage ich mich, ob das, so ohne weiteres überhaupt möglich ist. Falls nicht, kann ich's natürlich umgehen, aber schöner wäre es nunmal in einem Schritt... ;)

Kann mir wer weiterhelfen?

Edit: Auf den Hinweis von murphy hin aus dem [1-10] ein [1-9] gemacht, damit es etwas mehr Sinn gibt.
Last edited: 2010-06-11 16:34:04 +0200 (CEST)
- Linuxer
  
  2010-06-11 16:17
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Ich würd's anders lösen und den Regex einfach halten:
  
  Vorschlag:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8
  
  my $t = 'I have 2 foo and 1 bar.'; if ( my ($first, $second) = $t =~ m{(\d+)\s+foo.*(\d+)\s+bar} ) { if ( $first == 1 + $second ) { print "matched 2:1\n"; } }
  
  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!
- murphy
  
  2010-06-11 16:17
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  Dieser reguläre Ausruck tut vermutlich ganz und gar nicht das, was Du eigentlich möchtest. Er bedeutet nämlich folgendes: "Matche auf genau ein Zeichen, welches '1' oder '0' sein darf (und speichere dieses Zeichen als erste Gruppe), gefolgt von der Zeichenkette ' Tafeln Schoki und ', gefolgt von dem Inhalt der ersten Gruppe, gefolgt von der Zeichenkette '-1' (und speichere alles vom zweiten Treffer auf die erste Gruppe bis zum '-1' als zweite Gruppe)."
  
  Wichtige Punkte:
  
  Eckige Klammern in regulären Ausdrücken sind Zeichenklassen, keine Listen von Zahlen oder irgendwelche magischen Objekte.
  Runde Klammern in regulären Ausdrücken sind Gruppierungszeichen, weiter nichts.
  Ob nun in runden Klammern oder nicht, ein regulärer Ausdruck besteht aus Text und Escapesequenzen, nicht aus irgendwelchen Ausdrücken, die ausgewertet werden.
  
  All das steht aber auch in der Dokumentation perlre...
  When C++ is your hammer, every problem looks like your thumb.
- +5 replies
- moritz
  
  2010-06-11 16:18
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  Ungestested:
  
  Code: (dl )
  
  if (/([1-9]) Tafeln Schoki und (??{$1-1})/) {print "passt\n"}
  
  Aber lies die Warnung in perldoco perlre.
  Perl 6 - Perls Zukunft
  - +4 replies
  - Sven_123
    
    2010-06-11 16:24
    
    User since
    2010-06-01
    120 Artikel
    BenutzerIn
    
    Geht, danke - ich versteh noch nicht was genau passiert, aber ich gucks mir gleich noch genauer an, wollt nur erstmal bescheid geben. Zu den anderen, dank euch auch - hab's mir noch nicht genau angeguckt (moritz' Vorschlag war am kürzesten*g), mach ich aber gleich ebenfalls.
    
    Edit1:
    @Linuxer - ja, so ginge es natürlich, allerdings hab ich eigentlich noch mehr, das ich überprüfen muss, würde also etwas länglich...
    @murphy - Oh...bei mir hab ich eigentlich kein [1-10], sondern nur [1-5] stehen, deswegen ist mir das nicht aufgefallen... ;)
    Das zweite habe ich mir schon so gedacht, aber nachdem ich nicht wusste, wie es richtig gehört, habe ich es einfach mal so geschrieben, wie ich es ausprobiert hab, in der Hoffnung, dass ihr schon versteht, was ich meine... :)
    Last edited: 2010-06-11 16:34:19 +0200 (CEST)
    - +3 replies
    - Linuxer
      
      2010-06-11 16:42
      
      User since
      2006-01-27
      3870 Artikel
      HausmeisterIn
      
      Hi,
      
      wir können nur auf die Informationen reagieren, die uns geliefert werden... Wieviel "mehr" da noch ist, ist nicht ersichtlich.
      
      Ein anderer Ansatz könnte ein Hash sein:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10
      
      my %lookup = ( 5 => 4, 3 => 2, ); my $t = "I have 5 foo and 4 bar."; if ( $t =~ m{(\d+) foo and $lookup{$1} bar} ) { print "matched.\n"; }
      
      Das böte dann noch die Möglichkeit, andere Bedingungen zu implementieren als "2. Wert muss genau 1 kleiner sein als der erste".
      
      edit: Der oben erwähnte Ansatz klappt leider so nicht. Siehe auch wers Antwort.
      Hab mich da vertan, was die Nutzung des $1 angeht... Hatte gehofft, dass man damit das (??{}) damit umgehen könnte.
      
      Wenn man 2 Matches verknüpft, wäre es machbar:
      
      Code: (dl )
      
      1 2 3
      
      if ( $t =~ m{(\d+) foo} && $t =~ m{$lookup{$1} bar} ) { print "matched.\n"; }
      
      :/edit
      Last edited: 2010-06-11 17:26:31 +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!
      - Gast wer
        
        2010-06-11 17:13
        
        eher
        
        Code (perl): (dl )
        
        $t =~ m!(\d+) foo and (??{$lookup{$1}} bar!
        
        Ich meine anders funktioniert das nicht.
        Last edited: 2010-06-11 17:16:20 +0200 (CEST)
      - Sven_123
        
        2010-06-14 10:53
        
        User since
        2010-06-01
        120 Artikel
        BenutzerIn
        
        Schon klar, allerdings ging es mir im Grunde, wie geschrieben eher darum, ob es überhaupt möglich ist in ner Mustersuche zu rechnen, was ja anscheinend nicht ohne weiteres der Fall ist.
        Mit dem Ausdruck (??{}) muss ich mich noch befassen, hatte am Freitag dann erst anderes zu tun. Die Idee mit dem Hash ist gut.
        Danke euch beiden. :)

View all threads created 2010-06-11 15:57.