% Ersetzungen (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-11-14 17:12:28
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
4 Gäste

[thread]19189[/thread]

submit to reddit

% Ersetzungen [gelöst]

[gelöst]

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+17 replies
mika

2014-07-11 11:30

User since
2010-10-02
168 Artikel
BenutzerIn

Hallo,

ich lese aus eine config einen Scalar wie "foo: %h bar (%u%%)" und will nun im Skript diese "%*" Matches erstzen durch dafür definierte Werte.
Sicher kennt ihr das von anderen Programmen.

Gibt es hierfür ein Modul, um das nicht selbst implementieren zu müssen. Von einem Modul erhoffe ich mir vor allem, auf in der Praxis erprobten und standartisierten Code zurückgreifen zu können.

Kann vielleicht auch jemand sagen wie hier das korrekte Stichwort ist, um danach zu suchen, wenn man auch was finden will?

Danke
Mika
Last edited: 2014-07-11 11:33:58 +0200 (CEST)
- rosti
  
  2014-07-11 12:41
  
  User since
  2011-03-19
  3470 Artikel
  BenutzerIn
  
  Du könntest durch den Text laufen und aus %foo, %bar jeweils %s, %s machen, wobei in einem Array die namentlichen Ersetzungen zwischengespeichert werden [foo, bar], da werden dann im zweiten Schritt die Werte zugeordnet. Zum Schluss jagst Du das als Template über sprintf. Oder gleich mit RegExp arbeiten.
- +11 replies
- Muffi
  
  2014-07-11 13:00
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Naja, obs dafür gleich ein Modul braucht
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  my $a = 'Das %i das %h vom Nikolaus mit 3%% %r'; my %ersetzen = ( i => 'ist', h => 'Haus', r => 'Rendite', '%' => '%', );
  
  ~~$a =~ s/\%(\%|[\w+])/$ersetzen{$1}/ge;~~
  
  Code (perl): (dl )
  
  1 2 3
  
  $a =~ s/\%(\%|\w+)/$ersetzen{$1}/ge; print "$a\n";
  
  Last edited: 2014-07-12 16:24:48 +0200 (CEST)
  1 + 1 = 10
  - +2 replies
  - mika
    
    2014-07-11 13:28
    
    User since
    2010-10-02
    168 Artikel
    BenutzerIn
    
    Vielen Dank.
    
    Der Code funktioniert mit allen meinen Beispielen wie gewollt. Erinnert von der Syntax auch start an die Benutzung von Template – schön.
    
    2014-07-11T11:00:47 Muffi
    Passt schon so.
    
    Genau, ich hätte es wohl dazuschreiben sollen. Ein % selbst muss mit %% maskiert werden.
    
    Das ist richtig so.
    - Muffi
      
      2014-07-11 13:32
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Das mit dem Maskieren hab ich bemerkt, ich hatte nur nen geistigen Aussetzer.
      In dem Fall mit den 3%% wär das 2. sogar optional, weil danach kein a-z kommt.
      1 + 1 = 10
  - +6 replies
  - mika
    
    2014-07-12 06:47
    
    User since
    2010-10-02
    168 Artikel
    BenutzerIn
    
    Kann jemand bitte noch die Substitution erklären?
    
    Den Regulärer Ausdruck selbst verstehe ich. Aber der Rest bleibt sonst doch Magie... In meiner Dokumentation finde ich das nicht erklärt.
    - Muffi
      
      2014-07-12 08:03
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Mehr als eine Regex ist es auch nicht. Evtl. mal den modifier e nachschlagen
      1 + 1 = 10
    - +4 replies
    - Linuxer
      
      2014-07-12 08:47
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Der Hash %ersetzen enthält eine Zuordnung, welche Prozentsequenz durch welchen String ersetzt werden soll.
      
      Im Ersetzungsteil der Substitution wird dann mit dem gefundenen Match (die runden Klammern fangen den ein und machen ihn als $1 verfügbar) im Hash nachgesehen und durch den zuvor definierten Wert ersetzt (also %i durch ist).
      
      Und der Modifier /e ist hier noch nicht mal notwendig.
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
      
      >perl my $a = 'Das %i das %h vom Nikolaus mit 3%% %r'; my %ersetzen = ( i => 'ist', h => 'Haus', r => 'Rendite', '%' => '%', ); $a =~ s/\%(\%|[\w+])/$ersetzen{$1}/g; print "$a\n"; ^D Das ist das Haus vom Nikolaus mit 3% Rendite
      
      PS: Wenn eine Sequenz nicht im Hash definiert ist, wird sie durch ein undef (ergibt Leerstring) ersetzt.
      
      Doku:
      
      http://perldoc.perl.org/perldata.html
      http://perldoc.perl.org/perlre.html
      Last edited: 2014-07-12 10:11:26 +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!
      - +3 replies
      - mika
        
        2014-07-12 13:21
        
        User since
        2010-10-02
        168 Artikel
        BenutzerIn
        
        2014-07-12T06:47:55 Linuxer
        Und der Modifier /e ist hier noch nicht mal notwendig.
        
        Wieso eigentlich? Ist das der default von Perl, wenn man einen Hash als Ersetzung angiebt.
        
        Der Hinweis darauf von Muffin, hat mir aber gezeigt was Perl hier wohl macht. Bzw. woher Perl weiss welchen Schlüsselwert es verwenden soll.
        Die Codezeile muss ja ggf. mehr als einmal durchlaufen werden?
        
        Jetzt erkenne ich es auch an der Syntax ;-)
        Last edited: 2014-07-12 13:24:20 +0200 (CEST)
        
        Linuxer
        
        2014-07-13 00:15
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Wenn in der Ersetzung Variablen verwendet werden - und dazu zählt auch ein Zugriff auf ein Hash-Element - dann braucht es keinen /e-Modifier. Das ist das Standardverhalten.
        
        Wenn Du in der Ersetzung ein Stück Code stehen hast, der ausgeführt und dessen Rückgabe verwendet werden soll, dann brauchst Du den /e-Modifier.
        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!
        
        pq
        
        2014-07-13 01:37
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        oder kurz gesagt: der ersetzungs-string ist ein double-quoted-string.
        
        s/\%(\%|[\w+])/$ersetzen{$1}/g bedeutet also:
        matche auf qr/\%(\%|[\w+])/ und ersetze mit "$ersetzen{$1}"
        
        damit gelten in der ersetzung alle regeln der interpolation wie in double quotes.
        
        der /e modifier sagt stattdessen: führe den angegebenen code aus.
        
        s/foo/bar()/e bedeutet also: matche qr/foo/ und führe folgenden code aus: bar()
        
        der ersetzungscode wird sogar zur compile time gecheckt, also syntaxfehler führen zum abbruch des skripts.
        
        erst /ee macht ein echtes eval:
        s/foo/bar()/ee bedeutet: matche qr/foo/ und führe code eval bar() aus (also das ergebnis von bar() wird als argument fürs string-eval verwendet)
        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
  - +2 replies
  - Raubtier
    
    2014-07-12 13:48
    User since
    2012-05-04
    1075 Artikel
    BenutzerIn
    
    Was soll eigentlich das [\w+] in
    
    Code (perl): (dl )
    
    $a =~ s/\%(\%|[\w+])/$ersetzen{$1}/ge;
    
    Willst du auch %+ ersetzen können (das tut es, scheint mir aber eher unüblich) oder war es eher so gedacht, dass man auch mehrere Word-Character matchen kann (dann wären die eckigen Klammern nicht richtig).
    - Muffi
      
      2014-07-12 16:12
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Stimmt, ich hatte erst eine andere Version und da sind die Klammern übrig geblieben. Die können natürlich weg.
      1 + 1 = 10
- +3 replies
- Gast wer
  
  2014-07-11 18:31
  sprintf ist wohl was du suchst. Siehe
  
  Code: (dl )
  
  perldoc sprintf
  
  Last edited: 2014-07-11 18:33:37 +0200 (CEST)
  - murphy
    
    2014-07-11 18:35
    
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    sprintf ist halt nicht frei programmierbar, flexiblere Lösungen bei denen man eigene Escapesequenzen definieren kann wurden ja bereits vorgeschlagen.
    When C++ is your hammer, every problem looks like your thumb.
  - mika
    
    2014-07-11 21:17
    
    User since
    2010-10-02
    168 Artikel
    BenutzerIn
    
    Nun mein Beispiel oben ist nur ein Beispiel und wohl auch noch ein schlechtes.
    
    Ich wollte halt sowas wie man es von MP3-Rippern etc. kennt wo ein %a mit Author, %t mit Titel usw. ersetzt wird. Damit der User selbst Einstellen kann, wie eine MP3-Datei benannt werden soll.
    
    Mit printf bekommt man das IMO nicht wirklich hin, da nur die Position und Foramtierung des Wert angegeben werden kann. Nicht aber welcher Wert eingtragen werden soll.
    
    Edit: Hab das hier mal als gelöst vermerkt.
    Last edited: 2014-07-11 21:20:40 +0200 (CEST)
- Gast wer
  
  2014-07-11 18:33
  Ich meine
  
  Code: (dl )
  
  perldoc -f sprintf
  
  "-f" vergessen
  Last edited: 2014-07-11 19:11:24 +0200 (CEST)

View all threads created 2014-07-11 11:30.