xml tiefer auslesen (gelöst) (Allgemeines zu Perl)

[thread]19759[/thread]

xml tiefer auslesen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 15

Articles: hide open all | hide show old branches

+6 replies
jan99

2015-08-14 07:52
User since
2008-09-18
439 Artikel
BenutzerIn
Moin !

ich habe mal ein Skript gesucht um einfach XML-Daten auslesen zu können:
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 30 31 32 33 34 35 36

#!/usr/bin/perl # Quelle: http://linux.ittoolbox.com/groups/technical-functional/linuxadmin-l/xml-to-csv-by-perl-script-4395356 use warnings; use strict; use XML::XPath; # Parameter 1: Dateiname der XML-Datei OHNE Suffix # Ausgabe-Datei wird automatisch als CSV auf Basis von Parameter 1 generiert # bei findnodes ist der Knoten anzugeben ab welchem die Daten ausgelesen werden sollen. # das Ergebnis wird in die Datei und die Commandozeile geschrieben my $xml_file = $ARGV[0].".cui"; my $csv_file = $ARGV[0].".txt"; open(my $fh, '>>', $csv_file) || die "Error to open cui-file:$!"; # Musterdaten aus dem DATA-Abschnitt #my($xp) = XML::XPath->new( join('', <DATA>) ); my $xp = XML::XPath->new(filename=>$xml_file); # hier wird der Punkt der Ebenen über den gesuchten Daten angegeben my(@records) = $xp->findnodes( '/MenuGroup/MacroGroup/MenuMacro' ); my($firstTime) = 0; foreach my $record ( @records ) { my(@fields) = $xp->find( './child::*', $record )->get_nodelist(); unless ( $firstTime++ ) { print( join( ';', map { $_->getName() } @fields ), "\n"); print $fh ( join( ';', map { $_->getName() } @fields ), "\n"); } print( join( ';', map { $_->string_value() } @fields ), "\n"); print $fh (join( ';', map { $_->getName() } @fields ), "\n"); } close($fh);
Damit habe ich bisher eine flache Struktur ausgelesen. Nun soll folgende Struktur ausgelesen werden:

Quote
<MenuGroupxmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"xmlns:xsd="http://www.w3.org/2001/XMLSchema"Name="EBL_WERKZEUG_1"DisplayName="EBL_WERKZEUG_1">
<MacroGroup Name="EBL_Werkzeug_1Macros">
<MenuMacro UID="ID_02">
<Macro type="Any">
<Revision MajorVersion="16" MinorVersion="2" UserVersion="1" />
<ModifiedRev MajorVersion="17" MinorVersion="2" UserVersion="1" />
<Name xlate="true" UID="XLS_0002">Zoom auf Straße und Hausnummer</Name>
<Command>^C^C(C:BJ_TBLOGOUT);-vbarun BJ__POSFIND STR_HSNR EBL_KANAL </Command>
<SmallImage Name="ICBJ0162.BMP" />
<LargeImage Name="ICBJ0162.bmp" />
</Macro>
</MenuMacro>
<MenuMacro UID="ID_03">
<Macro type="Any">
<Revision MajorVersion="16" MinorVersion="2" UserVersion="1" />
<ModifiedRev MajorVersion="18" MinorVersion="0" UserVersion="0" />
<Name xlate="true" UID="XLS_0004">Zoom auf Gemarkung/Flur/Flurstück</Name>
<Command>^C^C(C:BJ_TBLOGOUT);-vbarun BJ__POSFIND GEM_F_FL ALK </Command>
<SmallImage Name="ICBJ0161.bmp" />

Irgendwie bin ich mit dem Thema XML in Perl noch nicht weiter gekommen.

Kann mir einer weiterhelfen?

Gruß Jan
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +5 replies
- Gast janus
  
  2015-08-15 07:16
  Die Struktur ist zyklisch, d.h. dass in der Sequenz eine sich wiederholende Datenstruktur steckt. Die Wiederholung baut auf eine sogenannte Entity, hier gekennzeichnet als MenuMacro/UID.
  
  Darüber steht noch die Gruppe, die jedoch ist für den Zyklus zunächst uninteressant. Schauen wir mal, welche Informationen überhaupt in der Sequenz stecken und welche Datenstruktur uns erwartet. Die ist nämlich gar nicht so kompliziert und alle Andere als tief. Und: Sie muss nicht rekursiv durchlaufen werden, weil sie eben einfach zyklisch ist.
  
  Eine für mich erkennbare Struktur ist ein Hash mit Referenzen:
  
  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
  
  $MacroMenus = { ID_02 => { macro_type => 'Any', rev_major_version => 16, rev_minor_version => 2, rev_user_version => 1, modrev_major_version => 17, modrev_min_versione => 2, modrev_user_version => 1, name_xlate => true, name_uid => 'XLS_0002', name_label => 'Zoom auf Straße und Hausnummer', command => '^C^C(C:BJ_TBLOGOUT);-vbarun BJ__POSFIND STR_HSNR EBL_KANAL ', small_img => 'ICBJ0162.BMP', large_img => 'ICBJ0162.BMP', }, ID_03 => { macro_type => 'Any', rev_major_version => 16, rev_minor_version => 2, rev_user_version => 1, modrev_major_version => 18, modrev_min_versione => 0, modrev_user_version => 0, name_xlate => true, name_uid => 'XLS_0004', name_label => 'Zoom auf Gemarkung/Flur/Flurstück', command => '^C^C(C:BJ_TBLOGOUT);-vbarun BJ__POSFIND GEM_F_FL ALK', small_img => 'ICBJ0161.BMP', } };
  
  Die Macrogruppe ist wie folgt eingebaut:
  
  Code: (dl )
  
  1 2 3
  
  $MacroGroups = { "EBL_Werkzeug_1Macros" => $MacroMenus };
  
  Bei meiner Umsetzung in den Hash habe ich ein paar Sachen vereinfacht, um das mal deutlich zu machen:
  
  Der Zweig
  
  Code: (dl )
  
  1 2 3
  
  name_xlate => true, name_uid => 'XLS_0004', name_label => 'Zoom auf Gemarkung/Flur/Flurstück',
  
  lässt sich nämlich auch tiefer gliedern, z.B.:
  
  Code: (dl )
  
  1 2 3 4
  
  XLS_0004 => { xlat => true, label => Zoom auf Gemarkung/Flur/Flurstück, };
  
  Ich weiß nun nicht, was hier zuerst entwickelt wurde, die XML-Sequenz oder die Datensruktur. Vermutlich hat da einer, wie so oft, zuerst das XML entwickelt und geschaut, wo er seine Daten am Besten unterbringt. Grundsätzlich gibt es da zwei Möglichkeiten:
  
  1. Tag steht allein, es gibt attribute=value
  <tag att='val'/>
  
  Das kann zu
  
  Code: (dl )
  
  tag => { att => val };
  
  werden.
  
  2. Tag wird geschlossen
  
  Code: (dl )
  
  <tag att='val'>Hier eine Weitere Information</tag>
  
  Das kann zu
  
  Code: (dl )
  
  tag => ['Hier eine Weitere Information', {att => val}]
  
  werden (nurmal als Beispiel).
  
  Für den Programmierer ist die XML-Sequenz völlig uninteressant, ihn interessiert einzig und allein die Datenstruktur, denn hierüber erfolgt der wahlfreie Zugriff (Random Acces) in seinem Programm und das passiert gewöhnlich im Hauptspeicher.
  
  Abstrakt: Zwischen XML (Sequenz, Datei) und Datenstruktur (Hash) steht ein sogenannter Serializer. Der macht praktisch nichts weiter, als die Daten transportsicher zu verpacken. Ein Serializer vermittelt. Möglicherweise wird auch transformiert, d.h., aus einem Hash wird ein Array gemacht oder umgekehrt.
  
  Warum ich das hier alles aufschreibe: Versuche, zu verstehen, welches Ergebnis dich erwartet, nachdem du auf CPAN diesen oder jenen XML-Serializer gefunden hast. Und versuche, zu verstehen, wie das Ergebnis, sprich: Hash/Array zustande kommt. Die Grundbausteine: Tags, Attribute, Label sind immer wieder dieselben. Nur die Datenstruktur, die kann bei gleichem Informationsgehalt völlig anders aussehen. Aus Meinem Beispiel-Hash ganz oben kannst du genausogut ein Array erzeugen ohne dass Informationen/Daten verlorengehen.
  
  Versuche zu erkennen, wo ein Zyklus beginnt/endet und ob für deine Verarbeitung ein Hash oder Array besser passt. Letztendlich jedoch, musst Du wissen, ob du dem Entwickler des Serializers vertrauen kannst: Ob er dir genau das liefert, was am Besten in dein Programm passt.
  Last edited: 2015-08-15 09:02:11 +0200 (CEST)
  - +4 replies
  - jan99
    
    2015-08-17 13:23
    
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    Moin !
    
    erst einmal vielen Dank für diesen sehr ausführlichen Fachvortrag.
    
    Dann werde ich mich einmal auf die Suche machen....
    
    ... oder hat einer von Euch einen Vorschlag für mich?
    
    Gruß Jan
    Last edited: 2015-08-17 13:27:54 +0200 (CEST)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - +3 replies
    - jan99
      
      2015-08-18 08:18
      
      User since
      2008-09-18
      439 Artikel
      BenutzerIn
      
      nur falls sich jemand wundert wegen parallel laufenden Posting zu ähnlichen Fragen. Derzeit komme ich mit diesem Weg nicht weiter - bin aber grundsätzlich an einer Lösung interessiert.
      
      Muss aber aus zeitlichen Gründen mir einen Workaround suchen.
      
      Gruß Jan
      perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
      - +2 replies
      - Gast janus
        
        2015-08-19 16:06
        
        Guck Dir XML::Simple an. aber warum überhaupt XML, das ist die dämlichste Art, Daten zu serialisieren. Ich bin überzeugt davon, dass Dir dein Partner die Daten auch anders liefern kann, mit anders meine ich vor allem besser durchdacht strukturiert und maschinell besser zu verarbeiten. Das braucht kein XML.
        Last edited: 2015-08-19 16:09:25 +0200 (CEST)
        
        jan99
        
        2015-08-21 11:21
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        Moin!
        
        erst einmal danke für den Tipp.
        
        Quote
        Ich bin überzeugt davon, dass Dir dein Partner die Daten auch anders liefern kann, mit anders meine ich vor allem besser durchdacht strukturiert
        
        ... glaube ich weniger. Schon einmal eine Weltfirma gefragt, ob die für einen einzelnen eine ganze Datenstruktur anpassen?
        
        Gruß Jan
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de

View all threads created 2015-08-14 07:52.