Regex match per Variablen zusammen setzten (Allgemeines zu Perl)

[thread]17660[/thread]

Regex match per Variablen zusammen setzten

Tags: perl5 regex hash Array Similar Threads

Readers: 19

Articles: hide open all | hide show old branches

+7 replies
Fragensteller

2012-08-13 10:04
User since
2012-08-01
37 articles
BenutzerIn
Hi und guten Morgen, inzwischen bin ich doch recht weit gekommen aber immer mal wieder taucht eine Frage auf^^

Wie diese hier.

Ich möchte meine Regex asu Variablen zusammen setzten.
Bei substitutionen habe iche s nun über eval erledigt da soweit ich es mitbekommen habe die Regex nicht interpretiert werden wenn diese aus den Variablen kommen.

Beim Match hingegen hatte ich keine Probleme, bis jetzt...
Code: (dl )

1 2 3 4 5 6

%hRegex = %{$hRegexAll{getkurl}}; if($anzeigeURL =~ /$hRegex{regex}/$hRegex{after}){ $anzeigeURL = $1; }else{ $anzeigeURL = $aKurl[0];
Hier bekomme ich nur Fehler: Scalar found where operator expected at

Hingegen kann ich aber dies machen ohen Fehler zu erhalten.

$anzeigeURL =~ $hRegex{regex}

Da ich aber gerne noch den "g" Parameter dran hätte.....

Kann man mir hier auch weiter helfen?

Achja, Mein Hash
Code: (dl )

1 2 3 4 5 6

getkurl => { before => "", regex => "((https?:\/\/)?([\-\w]+\.)+\w{2,3}(\/[%\-\w]+(\.\w{2,})?)*(([\w\-\.\?\\\/+@&#;:~=%!]*)(\.\w{2,})?)*\/?)", after => "g", replace => "", }
Timo
- +3 replies
- Linuxer
  
  2012-08-13 10:22
  User since
  2006-01-27
  3855 articles
  HausmeisterIn
  Quote
  Bei substitutionen habe iche s nun über eval erledigt da soweit ich es mitbekommen habe die Regex nicht interpretiert werden wenn diese aus den Variablen kommen.
  
  Dann hast Du da irgendwas seltsames probiert. Normalerweise funktioniert s/// auch mit Variablen:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  perl -wl my $search = 'aaa'; my $replace = '111'; my $text = 'aaabbbccc'; $text =~ s/$search/$replace/; print ">$text<\n"; ^D >111bbbccc<
  
  Nachdem ich den weiteren Text gelesen habe, erahne ich etwas...
  Du willst den Regex-Modifier, wie z.B. das /g, als Variable haben und anhängen...
  Das wäre mir neu, dass das so funktionieren würde. Das könnte man sehr wohl mit eval machen...
  Wobei mir da nur der String-eval gerade einfällt, und den würde ich nur ungern verwenden.
  Wie werden denn die Variablen für den Regex gefüllt? Gibt die der Benutzer ein? Werden die aus Dateien gelesen?
  
  PS: Warum müssen denn die Modifier als Variable eingesetzt werden?
  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!
  - +2 replies
  - Fragensteller
    
    2012-08-13 10:52
    User since
    2012-08-01
    37 articles
    BenutzerIn
    
    es gibt halt eine globale Datei die alle definierten Regeln enthält.
    Diese wird in zig Dateien verwendet. ändert sich nun eine Regel oder kommt eine hinzu soll nur diese eine angepasst werden.
    
    Code: (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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
    
    my %HoH = ( domain => { before => "s", regex => " \| .*\.\w*", after => "g", replace => "", }, amazonde => { before => "s", regex => " - Amazon.de", after => "g", replace => "", }, linetrenner => { before => "s", regex => "<br \/>", after => "g", replace => "{@}", }, clearhtml => { before => "s", regex => "<.+?>", after => "g", replace => "", }, clearlastwhite => { before => "s", regex => "\s+\$", after => "", replace => "", }, checkpos => { before => "", regex => "^(\d+\.?\d*|\.\d+)\$", after => "", replace => "", }, clearebay => { before => "s", regex => " bei ebay\$", after => "i", replace => "", }, getkurl => { before => "", regex => "((https?:\/\/)?([\-\w]+\.)+\w{2,3}(\/[%\-\w]+(\.\w{2,})?)*(([\w\-\.\?\\\/+@&#;:~=%!]*)(\.\w{2,})?)*\/?)", after => "g", replace => "", }, ); return %HoH;
    
    Bisher sah meine Sub eben so aus...
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
    
    sub subst { #paramater holen my ($search, $replace, $mod) = @_; if (my $eval = $mod =~ s/e//g) { $replace = qq{'$replace'}; $replace = "eval($replace)" for 1 .. $eval; } else { $replace = qq{"$replace"}; } if($mod eq "g"){ sub {s/$search/$replace/gee}; }else{ sub {s/(?$mod)$search/$replace/ee}; } }
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    %hRegex = %{$hRegexAll{domain}}; $sub = subst($hRegex{regex}, $hRegex{replace}, $hRegex{after}); $_ = $sHeader; $sub->(); $sHeader = $_;
    
    Last edited: 2012-08-13 10:57:54 +0200 (CEST)
    - Muffi
      
      2012-08-13 11:39
      
      User since
      2012-07-18
      1465 articles
      BenutzerIn
      
      Ergänzend zu Meinem Vorschlag unten:
      Ich weiss garnicht, ob der Lösungsansatz mein bevorzugter wär.
      Das sieht zwar alles wunderbar variabel aus, aber die grosse Frage ist, obs das überhaupt braucht.
      Das ist jetzt Bauchgefühl, weil ich deinen Anwendungsfall zu wenig kenne, aber so hypervariabel-lösungen sind oft völliger overkill und bei Änderungen furchtbar zu warten.
      Müssen z.B. wirklich Match und Ersetzsachen beieinander stehen? Sind einige Sachen nicht in einer sub, die das macht besser aufgehoben?
      
      Also ist diese Variabilität wirklich nötig oder ist vielleicht nicht das ein oder andere mal eine klare Trennung, Abgrenzung und Schnittstelle sinnvoller um später einmal auch noch durchzublicken.
      
      Ich hatte mal nen Fall, da hat sich jemand den halben Code mit eval zusammengebaut. Das war auch wunderbar flexibel, nur durchgeblickt hat keiner mehr.
      
      [EDIT]
      
      Nach nochmaligem Nachdenken bin ich sogar relativ sicher, dass ich keinen regex-hash über zig Stellen verteilen würde.
      Einfaches Beispiel: 2 Regeln kollidieren irgendwann, d.h. Regel1 muss vor Regel2 laufen, sonst gibts Müll. Und schon geht die Trickserei los.
      Last edited: 2012-08-13 11:50:24 +0200 (CEST)
      1 + 1 = 10
- +3 replies
- Muffi
  
  2012-08-13 11:07
  
  User since
  2012-07-18
  1465 articles
  BenutzerIn
  
  Deine / sind irgendwie komisch gesetzt in Zeile 3
  
  [EDIT]
  Ah, du willst den modifier per Variable setzen... Montag morgen dauerts bei mir manchmal länger.
  Ich glaub das geht nicht, aber du kannst modifier direkt in der regex setzen. Frag mich jetzt aber nicht wie die syntax genau ist, aber sowas sollt sich per google oder perldoc rauskriegen lassen.
  
  Sowas wie (für /i) /(?itext) oder so wars.
  Last edited: 2012-08-13 11:19:07 +0200 (CEST)
  1 + 1 = 10
  - +2 replies
  - Linuxer
    
    2012-08-13 11:23
    
    User since
    2006-01-27
    3855 articles
    HausmeisterIn
    
    Z.B. nachzulesen unter: http://perldoc.perl.org/perlre.html#(?adlupimsx-im...
    /g scheint darüber nicht zu setzen zu sein; habe aber nicht komplett gelesen...
    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!
    - Muffi
      
      2012-08-13 11:27
      
      User since
      2012-07-18
      1465 articles
      BenutzerIn
      
      Oh, dann
      - g immer setzen und schaun, dass es nicht schadet
      - if ($g) else
      - eval
      
      in der Reihenfolge würd ichs auch probieren.
      1 + 1 = 10

View all threads created 2012-08-13 10:04.