XML::Simple - Escaping (Fragen zu Perl-Modulen)

[thread]15395[/thread]

XML::Simple - Escaping

Tags: XML Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+6 replies
Gast Andre

2010-08-20 12:08
Hallo Leute,

ich habe XML::Simple verwendet, um einige XML-Alarmkataloge einzulesen. Diese XML-Dateien enthalten ein Tag namens "RegExMapping", das in seinen Strings auch diverse Shortcuts für Charakterklassen wie z.B. "\w" enthält.

Wenn ich mir die erzeugte Datenstruktur mit dem Data::Dumper ausgeben lasse, sehe ich, dass XMLin alle Escapesequenzen zusätzlich geschützt hat, d.h. aus dem obigen Shortcut wird nun "\\w".
Code: (dl )

1 2 3 4 5

for my $file (@files) { my $XML = XMLin($xmldir.'/'.$file, ForceArray => 1); push(@EVENTS,$XML); }
Ich habe im CPAN zum Modul XML::Simple leider keine Option gefunden, die das Escaping für XMLin deaktiviert. Ist Euch eine Möglichkeit bekannt, um diese Escaping zu unterbinden?

Das Problem ist, wenn ich die RegEx später verwenden möchte, matchen diese wegen des doppelten Backslash natürlich nicht. Weil ich keine Lösung für das XMLin-Problem gefunden habe, wollte ich die doppelten Backslashes durch einfache ersetzen:
Code: (dl )

1 2 3

my $regex = $EVENTS[$A]{Alarm}[$B]{RegExpMapping}[0]; $regex =~ s/\\\\/\\/g; $EVENTS[$A]{Alarm}[$B]{RegExpMapping}[0] = $regex;
Leider sind damit alle Backslashes verschwunden. Ich habe danach alle möglichen Kombinationen ausprobiert, keine hat funktioniert. Nun bin ich mit meinem Latein am Ende :-(

Wie muss ich die Substitution richtig definieren?

Mfg, Andre!
Last edited: 2010-08-20 12:19:27 +0200 (CEST)
- +5 replies
- payx
  
  2010-08-20 13:06
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo Andre,
  
  so klappt das bei mir:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  #!/usr/bin/perl use strict; use warnings; my $string = '\\w'; $string =~ s/(\\)+/\\/g; print $string;
  
  HTH
  Grüße
  payx
  
  Edit: Sorry, das stimmt so wohl nicht. Sondern es scheint so zu sein, dass nur der Dumper den zweiten Backslash einfügt. In der Variablen ist er also nicht vorhanden und kann deshalb auch nicht substituiert werden (weder durch Deine noch durch meine RegEx).
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $string = '\\w'; print $string; print "\n"; print Dumper $string;
  
  Last edited: 2010-08-20 13:39:17 +0200 (CEST)
  - +4 replies
  - Gast Andre
    
    2010-08-20 13:35
    Hallo payx,
    
    Danke für Deine Antwort! Ich habe es ausprobiert, leider funktioniert es auch nicht.
    
    Dass es bei Dir funktioniert liegt daran, dass Du 'print' verwendest, um den String anzeigen zu lassen. Die 'print' Funktion verarbeitet das erste Escapezeichen als Steuerzeichen und entfernt dieses automatisch.
    
    Verwendest Du stattdessen den Data::Dumper, siehst Du den tatsächlichen Inhalt des Strings und dieser enthält beide Backslashes ;-)
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14
    
    #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $string = '\\w'; $string =~ s/(\\)+/\\/g; print "PRINT: $string\n"; print Dumper "DUMPER: ".$string; Ergebnis: PRINT: \w $VAR1 = 'DUMPER: \\w';
    
    Gruß, Andre!
    Last edited: 2010-08-20 13:39:39 +0200 (CEST)
    - payx
      
      2010-08-20 13:57
      
      User since
      2006-05-04
      564 Artikel
      BenutzerIn
      
      Hallo Andre,
      
      an print liegt es nicht, sondern eben am Dumper.
      
      In meinem Beispiel klappt allerdings auch die Zuweisung mit den beiden Backslashes nicht:
      
      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
      
      #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $string = '\\w'; print "PRINT vor subst: $string\n"; print Dumper "DUMPER vor subst: ".$string; print "Length vor subst: " . length($string) . "\n\n"; $string =~ s/(\\)+/\\/g; print "PRINT nach subst: $string\n"; print Dumper "DUMPER nach subst: ".$string; print "Length nach subst: " . length($string) . "\n"; __END__ Output: PRINT vor subst: \w $VAR1 = 'DUMPER vor subst: \\w'; Length vor subst: 2 PRINT nach subst: \w $VAR1 = 'DUMPER nach subst: \\w'; Length nach subst: 2
      
      Wenn ich in Zeile 5 nur einen Backslash zuweise, verhält es sich genau gleich.
      
      Wenn ich aber vier Backslashes zuweise my $string = '\\\\w';, dann tut die RegEx was sie soll.
      
      PRINT vor subst: \\w $VAR1 = 'DUMPER vor subst: \\\\w'; Length vor subst: 3 PRINT nach subst: \w $VAR1 = 'DUMPER nach subst: \\w'; Length nach subst: 2
      
      Mit anderen Worten, wenn Deine Escape-Sequenzen wirklich doppelt escaped sind, sollte das mit Deiner (oder meiner) RegEx behoben werden.
      
      Grüße
      payx
    - +2 replies
    - topeg
      
      2010-08-20 14:02
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Dein Beispiel hat ein paar Macken. versuch es mal besser so:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
      
      #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my $old_s = <DATA>; chomp($old_s); my $new_s = $old_s; $new_s=~ s/\\\\/\\/g; print "PRINT:\n$old_s\n$new_s\n"; print "DUMPER:\n".Dumper $old_s, $new_s; __DATA__ \\w
      
      dann bekommst du das richtige Ergebniss:
      
      Code: (dl )
      
      1 2 3 4 5 6
      
      PRINT: \\w \w DUMPER: $VAR1 = '\\\\w'; $VAR2 = '\\w';
      
      Denke Daran, dass Dumper \ zu \\ macht und in '...' werden \\ zu \.
      - Gast Andre
        
        2010-08-20 14:13
        
        Danke, Euch beiden!
        
        Wenn der Data::Dumper also aus einen einfachen '\w' ein '\\w' macht, läge gar kein Problem vor ;-)
        
        Nur im Perl Debugger sehe ich auch den Wert '\\w'. Verwendet der Perl Debugger vielleicht intern auch den Data::Dumper o.ä. Modul?
        Last edited: 2010-08-20 14:23:23 +0200 (CEST)

View all threads created 2010-08-20 12:08.