Ersetzungstring mit $1 im Voraus "kompilieren" (gelöst) (Allgemeines zu Perl)

[thread]17160[/thread]

Ersetzungstring mit $1 im Voraus "kompilieren" [gelöst]

Tags: perl5 regex Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+6 replies
GwenDragon

2012-02-15 16:00

User since
2005-01-17
14848 Artikel
Admin1

Ich versuche gerade in aus einem Hash für s/// die Such-und Ersetzungsstrings auszulesen.
Der Suchstring ist dabei mit qr und der Ersetzungsstring ist eine Zeichenkette mit dem q-Operator erzeugt.

Ich habe nun in der sub repl das Problem, dass das Ersetzen bei "normalen" Zeichenketten funktioniert, aber wenn ich jedoch eine Backreferenz mit $1 o. ä. drin habe nicht mehr.

Wo ist mein Denkfehler.

Testcase:
more (15.7kb)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +5 replies
- pq
  
  2012-02-15 16:15
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  in dem string steht ja nur dollar 1, nicht der wert von $1.
  wenn du das "evaluieren" willst, musst du mit /ee bzw. eval arbeiten. das geht natürlich nur, wenn du weisst, dass der string "sicher" ist.
  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
  - GwenDragon
    
    2012-02-15 16:44
    User since
    2005-01-17
    14848 Artikel
    Admin1
    
    Quote
    wenn du das "evaluieren" willst, musst du mit /ee bzw. eval arbeiten. das geht natürlich nur, wenn du weisst, dass der string "sicher" ist.
    
    Mit ee hatte ich es vorher auch probiert, ich bin nur nicht drauf gekommen, was Perl mir mit
    
    Code: (dl )
    
    1 2 3 4 5
    
    Use of uninitialized value $_ in pattern match (m//) at (eval 1) line 1, <DATA> line 4. Use of uninitialized value in substitution iterator at videotag.pl line 46, <DATA> line 4. Scalar found where operator expected at (eval 3) line 1, near "/embed/$1" (Missing operator before $1?) Use of uninitialized value in substitution iterator at videotag.pl line 46, <DATA> line 4.
    
    sagen wollte.
    
    Und sicher ist das m. E. mit den angegebenen Regexes, weil $1 ja in dem Fall nur aus Ziffern besteht und somit
    wie z. B. bei qr'\/watch\/(\d+)\/.+' zu sehen ist, was dann bei einer URL /watch/1234567/blah_blubb ja durch den Ersetzungsstring '"/embed/$1"' zu /embed/1234567 wird.
    
    Würde nicht auf (\d+) getestet sondern auf (.+) wäre das ein Einfallstor.
    
    Aber riskant sind solche Evals schon, da hast du Recht.
    
    2012-02-15T15:15:08 pq
    in dem string steht ja nur dollar 1, nicht der wert von $1.
    So ein Mist, ich weiß jetzt was ich da vergaß. Ich habe den Ersetzungsstring auch falsch gequotet, der muss für ee ja zusätzlich in "" stehen.
    
    Ich muss wohl mit meinen Hühneraugen den Code angesehen haben. ;)
    Last edited: 2012-02-15 16:46:01 +0100 (CET)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +2 replies
    - pq
      
      2012-02-15 16:48
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      ja, das mit /ee ist nicht besonders hübsch.
      
      s/...//qq{"$replace"}/ee;
      
      aber sicher ist das halt wirklich nur, wenn du die kontrolle über die strings hast.
      wenn dadrin steht:
      @{[ system 'rm -rf /' ]}
      dann hast du ein problem.
      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
      - GwenDragon
        
        2012-02-15 17:01
        
        User since
        2005-01-17
        14848 Artikel
        Admin1
        
        2012-02-15T15:48:52 pq
        ja, das mit /ee ist nicht besonders hübsch.
        
        s/...//qq{"$replace"}/ee;
        Ja, manchmal muss es doch durch so unschöne Konstrukte gelöst werden.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - GwenDragon
    
    2012-02-15 16:49
    User since
    2005-01-17
    14848 Artikel
    Admin1
    
    gelöst habe ich es jetzt durch:
    
    Code (perl): (dl )
    
    $url =~ s|$from|"\"$to\""|ee;
    
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2012-02-15 16:00.