Variablen in String auflösen (Allgemeines zu Perl)

[thread]15967[/thread]

Variablen in String auflösen

Leser: 25

Articles: hide open all | hide show old branches

+8 replies
Gast Ban-Joke

2011-02-16 17:59
Hallo Community,
ich habe das Problem, dass ich von einer Datenbank einen String der Form:
Code: (dl )

$string='abcdefgh%$abc%ijkl';
erhalte. Die Variable $abc soll aber durch die Variable $abc aus dem Script aufgelöst werden, d.h. in dem Perlsscript gibt es bereits ein
Code: (dl )

$abc="XYZ";
Als "Ergebnis" sollte nun
Code: (dl )

$string='abcdefghXYZijkl';
sein.
Habt ihr ein Tipp oder eine Idee für mich?
Last edited: 2011-02-16 18:02:39 +0100 (CET)
- pq
  
  2011-02-16 18:09
  User since
  2003-08-04
  12208 Artikel
  Admin1
  eine typische aufgabe.
  wenn es wirklich nur um diese eine variable geht, kann man einfach folgendes machen:
  
  Code (perl): (dl )
  
  $string =~ s/%\$abc%/$abc/;
  
  man sollte aber bedenken, dass das ganze hässlich wird, sobald es mehrere solche variablen gibt. dann ist es empfehlenswert, die variablen in einen hash zu packen.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  my %replace = ( abc => 1, def => 2, ... ); my $re = join '|', keys %replace; $string =~ s/%\$($re)%/$replace{ $1 }/g;
  
  Editiert von pq: prozentzeichen übersehen, code angepasst
  Last edited: 2011-02-16 18:12:48 +0100 (CET)
  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
- gelöscht 2011-02-16 18:10
- +5 replies
- GwenDragon
  
  2011-02-16 18:12
  User since
  2005-01-17
  14554 Artikel
  Admin1
  Beispiel:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  $abc = 999; $string = 'abcdefgh%$abc%ijkl'; $string =~ s/\%\$([A-Za-z][A-Za-z0-9_]*)\%/${$1}/e; print $string;
  
  Aber es ist nicht sehr sinnvoll globale Variablen so in einem Template zu ersetzen.
  Was ist wenn jemand solch eine globale Variable in Perl im Code ändert.
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
  - +4 replies
  - pq
    
    2011-02-16 18:18
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    das funktioniert dann so aber auch nur ohne strict.
    u.a. deswegen mein vorschlag mit dem hash.
    
    edit: ach, ganz übersehen, das "e" flag ist bei der regex übrigens unnötig
    Last edited: 2011-02-16 18:21:32 +0100 (CET)
    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
      
      2011-02-16 18:22
      
      User since
      2005-01-17
      14554 Artikel
      Admin1
      
      Oh, habe ich vergessen, zu schreiben dass sowas nur ohne use strict; geht.
      die Drachin, Gwendolyn
      
      Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
      - +2 replies
      - Gast Ban-Joke
        
        2011-02-17 09:47
        
        Hey vielen Dank für die Antworten...
        
        das mit dem Hash werde ich mal probieren, weil es bis zu 4 oder 5 solche Variablen geben wird.
        
        Bei der Variante mit dem Hash kann man aber use strict; verwenden??
        --> Da es hier um Kommunikation mit einer Oracle-Datenbank und n-MSSQL-Servern geht, wäre das schon sehr wichtig.
        Last edited: 2011-02-17 09:59:09 +0100 (CET)
        
        pq
        
        2011-02-17 12:57
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        Guest Ban-Joke
        Bei der Variante mit dem Hash kann man aber use strict; verwenden??
        
        ja, klar
        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

View all threads created 2011-02-16 17:59.