Aus einer Xml ein XML Value als String lesen (gelöst) (Allgemeines zu Perl)

[thread]18476[/thread]

Aus einer Xml ein XML Value als String lesen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+9 replies
Gast abs

2013-07-29 13:46
Hallo,

ich habe ein etwas kompliziertes Problem und weiß da nicht weiter:
Ich habe eine XML Datei in der die Values auch XML sein können. Meine Xml Datei will ich in Perl einlesen.
Die "eingebette" XML soll dabei als String eingelesen werden. Wie kann man das umsetzen.

Hier ein Beispiel
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12

<?xml version="1.0" encoding="ISO-8859-15"?> <class_list> <student> <name>Robert</name> <grade>A+</grade> <property> <?xml version="1.0" encoding="ISO-8859-15"?> <abc> <xyz> <v>21341</v> 4532563 </xyz> </abc> </property> </student> <student> <name>Lenard</name> <grade>A-</grade> </student> </class_list>
Danke!
Last edited: 2013-07-29 14:01:27 +0200 (CEST)
- +3 replies
- GwenDragon
 
 2013-07-29 14:09
 
 User since
 2005-01-17
 14746 Artikel
 Admin1
 
 Mit dem Modul XML::Simple kannst du XML einlesen und auf Inhalte zugreifen.
 
 Quote
 <property> <?xml version="1.0" encoding="ISO-8859-15"?> <abc> <xyz> <v>21341</v> 4532563 </xyz> </abc> </property>
 Das ist dann aber kein sauberes XML.
 Last edited: 2013-07-29 14:10:33 +0200 (CEST)
 die Drachin Gwen
 
 Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
 - +2 replies
 - Muffi
 
 2013-07-29 14:56
 
 User since
 2012-07-18
 1465 Artikel
 BenutzerIn
 
 Ich glaub auch nicht, dass man sowas durch einen Validator kriegt
 1 + 1 = 10
 - GwenDragon
 
 2013-07-29 16:21
 
 User since
 2005-01-17
 14746 Artikel
 Admin1
 
 Durch einen Validator nicht. Durch einen XML-Parser kann, muss aber nicht.
 Und wenn das Programm dann mit anderem invaliden XML verwemndet wird, hakts dann.
 die Drachin Gwen
 
 Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +5 replies
- GwenDragon
 
 2013-07-29 16:36
 
 User since
 2005-01-17
 14746 Artikel
 Admin1
 
 Quote
 ich habe ein etwas kompliziertes Problem und weiß da nicht weiter:
 Und was weißt du genau nicht?
 Wie Werte aus XML gelesen werden? Wie Daten gelesen werden? Oder wo fehlt dir Wissen?
 die Drachin Gwen
 
 Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
 - +4 replies
 - Gast abs
 
 2013-07-29 17:41
 
 Das Problem ist, dass XML:Simple auch diesen Teil:
 <?xml version="1.0" encoding="ISO-8859-15"?> <abc> <xyz> <v>21341</v> 4532563 </xyz> </abc>
 parst. Das will ich versuchen zu unterbinden.
 
 Ich weiß, dass das nicht sauber ist, dass soll für vorerst nur ein Workaround sein. Im Moment ist mein Programm so implementiert, dass es xml liest. Das kann ich nicht sofort ändern.
 Last edited: 2013-07-29 17:42:26 +0200 (CEST)
 - renee
 
 2013-07-29 17:58
 
 User since
 2003-08-04
 14371 Artikel
 ModeratorIn
 
 Kannst Du das Generieren des XML anpassen?
 
 Alternativ bliebe noch - je nach Aufgabenstellung und Komplexität des XML - den Wert mit einem Regulären Ausdruck rauszuholen.
 OTRS-Erweiterungen (http://feature-addons.de/)
 Frankfurt Perlmongers (http://frankfurt.pm/)
 --
 
 Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
 Perl-Entwicklung: http://perl-services.de/
 - +2 replies
 - topeg
 
 2013-07-29 21:20
 
 User since
 2006-07-10
 2611 Artikel
 BenutzerIn
 
 Dein Problem ist halt das das eingebettete XML nicht entwertet ist. Wer immer das verzapft hat, hatte von XML nicht viel Ahnung.
 Zu dem Zweck gibt es den Spezialtag "CDATA" <![CDATA[ .... ]]> Das sagt dem Parser das er alles innerhalb dieses Tags zu ignorieren ist. Man muss nur noch zusätzlich sicher gestellen, das im Entwerteten XML kein "]]>" steht. Das stellt man sicher, in dem man die drei Zeichen Aufteilt:
 "]]>" => "]]]><![CDATA[]>"
 
 Wenn du dir sicher bist, dass im eingebetteten XML kein "</property>" vorkommt kannst du diese Holzhammer Methode verwenden:
 
 Code (perl): (dl )
 
 1 2 3 4 5 6 7 8 9 10 11 12 13
 
 # read XML file in $xml_string my $out=''; while($xml_string=~s!^(.*?<property>\s*)(<\?xml.+?>)(\s*</property>)!!s){ $out.=$1.'<![CDATA['; my ($in,$after)=($2,$3); $in=~s/\Q]]>\E/]]]><![CDATA[]>/gs; $out.=$in.']]>'.$after; } $xml_string=$out.$xml_string; $out=''; # parse XML $xml_string ...
 
 das sucht nach <property> <\?xml ... > </property> und ersetzt das durch <property> <![CDATA[<\?xml ... >]]> </property>
 
 Danach kannst du das XML normal parsen und "property" enthält einen String des eingebetteten XML.
 
 Sollte </property> vorkommen wird das ganze schwieriger, da man die XML-Verschachtelung auflösen muss. Man muss das XML partiell parsen.
 Last edited: 2013-07-29 21:22:42 +0200 (CEST)
 - Gast abs
 
 2013-07-30 15:16
 
 DANKE!
 Das ist genau was ich brauche!
 
 Viele Grüße
 Last edited: 2013-07-30 15:20:53 +0200 (CEST)

View all threads created 2013-07-29 13:46.