Suchstrings kombinieren (gelöst) (Allgemeines zu Perl)

[thread]16021[/thread]

Suchstrings kombinieren [gelöst]

Leser: 25

Articles: hide open all | hide show old branches

+9 replies
hugenyn

2011-03-01 11:37
User since
2010-10-05
65 Artikel
BenutzerIn
Ein String der Form
Code: (dl )

1 2

my $su = "28C 22 10M 15C"; my $best = 10; # oder irgendeine ganze Zahl
soll mit den Codes
Code: (dl )

1 2

my $code1 = "$C\.\*$\{2\}"; my $code2 = " $best \| $best\[M\] ";
durchsucht werden.

Mit
Code: (dl )

if (/$code1/ && /$code2/) { ...
funktioniert das.

Mit
Code: (dl )

1 2

my $code = "$C\.\*$\{2\}\/ \&\& \/ $best \| $best\[M\] "; if (/$code/) { ...
geht es nicht.

Wie füge ich $code1 und $code2 zusammen?

Danke.
Last edited: 2011-03-01 11:38:41 +0100 (CET)
- +4 replies
- pq
  
  2011-03-01 12:02
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  da stellt sich erstmal die frage: warum? wenn es mit m/.../ && m/.../ funktioniert, warum musst du das in eine regex pressen?
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +3 replies
  - hugenyn
    
    2011-03-01 20:51
    
    User since
    2010-10-05
    65 Artikel
    BenutzerIn
    
    Ich habe eine Sub, die von verschiedenen Stellen im Programm mit einem Suchstring entweder nach Code1, oder nach Code2 oder nach Code1 und 2 aufgerufen werden soll.
    
    Das aufrufende Programm setzt vor dem Aufruf die entsprechenden Variablen im Suchstring.
    
    Soweit meine Idee mit den vorformulierten Suchstrings und daher meine Frage.
    - +2 replies
    - clms
      
      2011-03-02 10:47
      
      User since
      2010-08-29
      373 Artikel
      BenutzerIn
      
      2011-03-01T19:51:51 hugenyn
      Ich habe eine Sub, die von verschiedenen Stellen im Programm mit einem Suchstring entweder nach Code1, oder nach Code2 oder nach Code1 und 2 aufgerufen werden soll.
      
      Das aufrufende Programm setzt vor dem Aufruf die entsprechenden Variablen im Suchstring.
      
      Nochmal zur Nachfrage:
      Im dritten Fall (Code 1 und 2) können die Codes völlig unabhängig von einander in zu untersuchenden String vorkommen?
      
      Falls ja, würde ich Deiner Funktion eine Liste mit den Regex übergeben, die dann alle gematched werden müssen.
      
      Falls nein, kannst Du Restriktionen im Eingabestring oder in Deinen Codes ausnutzen, um sie in eine Regex zu packen.
      - hugenyn
        
        2011-03-02 13:56
        
        User since
        2010-10-05
        65 Artikel
        BenutzerIn
        
        Quote
        Falls ja, würde ich Deiner Funktion eine Liste mit den Regex übergeben, die dann alle gematched werden müssen.
        
        So mache ich es.
        
        Weil in der Sub, wie ich probiert habe,
        
        Code: (dl )
        
        if (m/$code1/ and m/$code2/) {...
        
        auch funktioniert, wenn ein $code() ist, kann ich mein Problem mit der wahlweisen Übergabe der Suchstrings so lösen.
        
        Danke.
- +4 replies
- clms
  
  2011-03-01 12:16
  User since
  2010-08-29
  373 Artikel
  BenutzerIn
  Code: (dl )
  
  1 2
  
  my $code1 = "$C\.\*$\{2\}"; my $code2 = " $best \| $best\[M\] ";
  
  würde ich umschreiben in
  
  Code (perl): (dl )
  
  1 2
  
  my $code1 = qr"(C.*){2}"; my $code2 = qr" $best | ${best}M ";
  
  Da Du die Variablen wohl nur als Regex verwendest.
  (Und die Escapoes mit '\' sind eh überflüssig).
  
  2011-03-01T10:37:03 hugenyn
  Mit
  
  Code: (dl )
  
  if (/$code1/ && /$code2/) { ...
  
  funktioniert das.
  
  Mit
  
  Code: (dl )
  
  1 2
  
  my $code = "$C\.\*$\{2\}\/ \&\& \/ $best \| $best\[M\] "; if (/$code/) { ...
  
  geht es nicht.
  
  Beim ersten Beispiel hast Du zwei unabhängige Matches, die beide erfüllt sein müssen. Das kannst Du auch in
  
  Code (perl): (dl )
  
  if (m/$code1/ and m/$code2/) { ...
  
  umschreiben.
  
  Im zweiten Fall muss der String mit folgender Regex matchen:
  qr:(C.*)(2)/ && / $best | $best[M] :
  Ich bin mir jetzt nicht über die Bindungswirkung des '|' sicher, aber
  'C.*2' matched nur noch wenn die 2 unmittelbar von '/ && /' gefolgt wird, da dies keine speziellen Zeichen in der Regex sind.
  (Einen logischen Und-Operator für Regex gibt es nicht.)
  
  Wenn Du willst, dass Dein String $code1 und $code2 enthält egal in welcher Reihenfolge und ggf. auch überlappend, musst Du den ersten Ansatz mit zwei unabhängigen Matches wählen. Das in eine einzige Regex zu packen ist zu kompliziert.
  
  Wenn $_ die Codes hintereinander enthalten soll (egal, was dazwischen steht)
  kannst Du qr($code1.*$code2) verwenden. da kannst Du dann auch noch bestimmen, was zwischen den Codes stehen darf, indem DU ".*" entsprechend ersetzst.
  - +3 replies
  - hugenyn
    
    2011-03-02 22:03
    User since
    2010-10-05
    65 Artikel
    BenutzerIn
    
    Es ist doch noch nicht ganz fertig!
    Mit
    
    Code: (dl )
    
    1 2
    
    for (@spiel) { if (m/$code1/ and m/$code2/) {...
    
    ist alles i.O.
    
    Nun werte ich aber in der Sub ein AoA aus
    
    Code: (dl )
    
    1 2
    
    for (@linien) { my $wp = join " ", @$_;
    
    und damit funktioniert
    
    Code: (dl )
    
    if $wp =~ (m/$code1/ and m/$code2/) {...
    
    nicht, weil if den String aus dem join in $_ erwartet.
    
    Wie bekomme ich diesen "Joint" aus dem AoA in die Standardvariable $_ ?
    - +2 replies
    - clms
      
      2011-03-03 00:03
      
      User since
      2010-08-29
      373 Artikel
      BenutzerIn
      
      2011-03-02T21:03:42 hugenyn
      und damit funktioniert
      
      Code: (dl )
      
      if $wp =~ (m/$code1/ and m/$code2/) {...
      
      nicht, weil if den String aus dem join in $_ erwartet.
      
      Wie bekomme ich diesen "Joint" aus dem AoA in die Standardvariable $_ ?
      
      Man kann den Wert einfach mit $_ = $wp zuweisen, aber warum willst du unbedingt $_ verwenden? Ich würde es so machen:
      
      Code (perl): (dl )
      
      if ($wp =~ m/$code1/ and $wp =~ m/$code2/) {...
      - hugenyn
        
        2011-03-03 11:32
        
        User since
        2010-10-05
        65 Artikel
        BenutzerIn
        
        Quote
        den Wert einfach mit $_ = $wp zuweisen
        
        Oh, Gott - natürlich.
        
        Nun ist es gut.
        Danke.

View all threads created 2011-03-01 11:37.