RegExp aus Hash bauen mit Named Matches (solved) (Allgemeines zu Perl)

[thread]18617[/thread]

RegExp aus Hash bauen mit Named Matches [solved]

Tags: perl5 regex named matches Similar Threads

Readers: 11

Articles: hide open all | hide show old branches

+3 replies
zilpzalp

2013-09-22 00:43
User since
2012-08-04
4 articles
BenutzerIn
Hallo Forum,

ich möchte in einem Text automatisierte Textersetzungen mit regulären Ausdrücken machen. Dabei möchte ich die Definitionen für die Patterns in einem Hash(Ref) definieren. Außerdem benötige ich Named Matches, um innerhalb der gefundenen Textfragmente auf Teilinformationen zugreifen zu können.

Ich habe mal ein exemplarisches Beispiel erstellt, wie ich mir das derzeit vorstelle:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

#!/usr/bin/perl use strict; use warnings; my $text; while(<DATA>) { $text=$text.$_; } my $repl={ foo_bar => { is => "foo", by => "bar" }, MS => { is => "rock", by => "suck" }, id => { is => "\{id\}(?<id>[^\{]+)\{\/id\}", by => "ID: $+{id}" }, }; foreach my $p (keys $repl) { $text =~ s/$repl->{$p}->{'is'}/$repl->{$p}->{'by'}/g; } print $text, "\n"; __DATA__ My name is foo, yes foo. {id}1234{/id} Microsoft rocks!
Problem: Leider funktioniert das mit den Named Matches ($+{id}) nicht. Die Ausgabe ist:
Code: (dl )

1 2 3

My name is bar, yes bar. ID: Microsoft sucks!
Habt Ihr da eine Idee?

Vielen Dank und viele Grüße,
ziplzalp
Last edited: 2013-09-22 00:47:20 +0200 (CEST)
- +2 replies
- pq
  
  2013-09-22 00:54
  User since
  2003-08-04
  12208 articles
  Admin1
  das problem ist, dass das $+{id} schon ausgewertet wird, wenn du den hash definierst.
  eine lösung, mit der du flexibel bleibst:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  my $repl = { id => { is => ..., by => sub { "ID: $+{id}" } }, }; $text =~ s/$repl->{$p}->{is}/$repl->{$p}->{by}->()/eg;
  
  du hinterlegst also eine subroutine, die erst bei der ersetzung aufgerufen wird.
  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
  - zilpzalp
    
    2013-09-22 01:03
    
    User since
    2012-08-04
    4 articles
    BenutzerIn
    
    Hallo pq!
    
    Spitze, funktioniert! Wäre ich im Leben nicht drauf gekommen.
    
    Danke und gute Nacht, zilpzalp

View all threads created 2013-09-22 00:43.