Attributname sprengt Formatierung (Fragen zu Perl-Modulen)

[thread]20140[/thread]

Attributname sprengt Formatierung

Tags: perl5 XML Ähnliche Threads

Leser: 14

Articles: hide open all | hide show old branches

+13 replies
Commu

2016-08-23 13:44
User since
2016-08-23
3 Artikel
BenutzerIn
Hallo Zusammen,

Aus einem fremdsystem bekomme ich eine XML-Datei die sieht so aus:
Code: (dl )

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

<?xml version="1.0" encoding="UTF-8"?> <importrecord> <dateiname>24845_2874846.fmd</dateiname> <aktionen> <transaktion> <aktion> <parameter> <attribut attributname="aktion"></attribut> <attribut attributname="bereich"></attribut> <attribut attributname="dokumenttyp"></attribut> <attribut attributname="voname"></attribut> <attribut attributname="gz"></attribut> <attribut attributname="betreff"></attribut> ....
Alle Attribute sind leer. Damit die XML-Datei weiterverarbeitet werden kann muß z.B. das Attribut Attributname='Anlegen' befüllt sein. Hierfür bin ich am testen, denn wenn ich das folgende Script ausführe wird die XML-Datei um gebaut.
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

#!/usr/bin/perl use strict; use warnings; use XML::Simple; my $xml_file = '24845_2874846.fmd'; my $xml = XMLin( $xml_file, KeepRoot => 1, ForceArray => 1, ); $xml->{importrecord}->[1]->{aktionen}->[0]->{transaktion}->[0]->{parameter}->[0]->{aktion}->[0]->{attribut}->[0] = 'Anlegen'; XMLout( $xml, KeepRoot => 1, NoAttr => 1, OutputFile => $xml_file, );
wie muss ich den <attribut attributname="aktion"></attribut> kennzeichnen damit ich in den Tag 'Anlegen' schreiben kann?

Gruß Jörg
Last edited: 2016-08-23 14:54:30 +0200 (CEST)
- Linuxer
  
  2016-08-23 18:46
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Was mir beim Rumspielen auffällt ist die Reihenfolge der Tags und wie Du sie ändern lassen willst.
  
  Im XML ist es:
  
  Code: (dl )
  
  1 2 3 4 5 6
  
  <importrecord> <dateiname>24845_2874846.fmd</dateiname> <aktionen> <transaktion> <aktion> <parameter>
  
  Im Code, wo Du etwas setzen willst, ist es:
  
  Code: (dl )
  
  1 2 3 4 5 6
  
  $xml->{importrecord}->[1] ->{aktionen}->[0] ->{transaktion}->[0] ->{parameter}->[0] ->{aktion}->[0] ->{attribut}->[0] = 'Anlegen';
  
  D.h. erst ist es transaktion->aktion->parameter; und dann transaktion->parameter->aktion .
  
  Ist dieser Wechsel in der Hierarchie von aktion und parameter wirklich so gewünscht?
  
  PS: Das hilft aber erstmal nicht beim eigentlichen Problem ;-)
  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!
- Linuxer
  
  2016-08-23 18:51
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Nächster Punkt ;-)
  
  Wenn Du ein XML-Tag hast, wie <foo color="blue">bar</foo> dann ist ja "color" ein Attribut von foo.
  
  Du hast Daten der Art <attribut attributname="dokumenttyp"></attribut>, also auch Tags mit Attributen.
  
  Warum schaltest Du dann beim Schreiben des XML die Nutzung von Attributen ab?
  Du möchtest sie aber doch anscheinend haben?
  
  Code: (dl )
  
  1 2 3 4 5 6
  
  XMLout( $xml, KeepRoot => 1, NoAttr => 1, ############## WARUM? Es gibt doch Attribute? OutputFile => $xml_file, );
  
  PS: Ich habe die Doku nicht gelesen ;-)) Siehe XML::Simple
  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!
- Linuxer
  
  2016-08-23 18:56
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Mit folgenden Code liegt das Resultat doch schon mal recht nahe am Original (nachdem ich die ungeschlossenen Tags auch mal wieder geschlossen habe, um etwas halbwegs valides zu haben):
  
  Update 21:00: Code(s) angepasst, damit die Attribute des Tag erhalten bleiben, das nun Content "Anlegen" erhält.
  
  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
  
  #!/usr/bin/perl use strict; use warnings; use XML::Simple; my $in_file = "in.xml"; my $xml_file = 'out.xml'; my $xml = XMLin( $in_file, KeepRoot => 1, ForceArray => 1, ); # added ->{content}, so now attributes are preserved and stay $xml->{importrecord}->[0]->{aktionen}->[0]->{transaktion}->[0]->{aktion}->[0]->{parameter}->[0]->{attribut}->[0]->{content} = 'Anlegen'; XMLout( $xml, KeepRoot => 1, NoAttr => 0, OutputFile => $xml_file, );
  
  Resultat:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  <importrecord> <aktionen> <transaktion> <aktion> <parameter> <attribut attributname="aktion">Anlegen</attribut> <attribut attributname="bereich" /> <attribut attributname="dokumenttyp" /> <attribut attributname="voname" /> <attribut attributname="gz" /> <attribut attributname="betreff" /> </parameter> </aktion> </transaktion> </aktionen> <dateiname>24845_2874846.fmd</dateiname> </importrecord>
  
  Die fehlende XML-Deklaration ~~und das verschwundene attributname="aktion"~~ müssen dann noch eingearbeitet werden...
  Last edited: 2016-08-23 21:02:30 +0200 (CEST)
  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!
- +9 replies
- GwenDragon
  
  2016-08-23 21:12
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Es ist nicht verboten den meterlangen Bandwurm zu zerteilen, damit es lesbarer wird ;)
  
  Das hier ist ein Beispiel! -- nicht meine Lösung deines Problems.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  $xml->{importrecord}->[0] ->{aktionen}->[0] ->{transaktion}->[0] ->{aktion}->[0] ->{parameter}->[0] ->{attribut}->[0] ->{content} = 'Anlegen';
  
  Oder verstoße ich dann gegen religiöse Vorschriften der Perl-Mönche[1] und verletze damit das PBP-Gelübde[2] des Heiligen Damian[3]?
  
  [1] hier sind gemeint: Perlmonks http://perlmonks.org/
  [2] PBP = Perl Best Practices, auch Titel eines Buches
  [3] Damian Conway, Autor von PBP, http://damian.conway.org/
  Last edited: 2016-08-24 12:42:24 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - Gast janus
    
    2016-08-24 07:33
    
    Wenn ich sowas sehe, frag ich mich ob XML-Designer überhaupt eine Vorstellung davon haben, wie die resultierende Datenstruktur aussieht. Wahrscheinlich eher nein. So ein Stuss aber auch!
    Last edited: 2016-08-24 08:14:25 +0200 (CEST)
    - Gast janus
      
      2016-08-24 09:13
      
      Guest janus
      Wenn ich sowas sehe, frag ich mich ob XML-Designer überhaupt eine Vorstellung davon haben, wie die resultierende Datenstruktur aussieht. Wahrscheinlich eher nein. So ein Stuss aber auch!
      
      PS: Ich würde den XML Designer fragen ob er noch alle Tassen im Schrank hat. Und ja, das meine ich ernst!
      Last edited: 2016-08-24 12:36:24 +0200 (CEST)
    - GwenDragon
      
      2016-08-24 12:48
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Dann wird dir das als Bingo gefallen https://pbs.twimg.com/media/CqjEU5nXgAEjU3V.jpg:la... :)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +5 replies
  - Commu
    
    2016-08-24 08:02
    
    User since
    2016-08-23
    3 Artikel
    BenutzerIn
    
    Guten Morgen und vielen Dank für die Antworten,
    
    das ist aber noch nicht ganz das was ich wollte.
    
    Bei <attribut attributname="aktion"></attribut> sollte das Wort 'Anlegen' eingefügt werden, bekommen habe ich
    
    <attribut attributname="aktion" /> ohne 'Anlegen', zudemfehlt bei der Zuweisung Content der Attributname aktion.
    
    Da frage ich wie das dann bei anderen Atributen passieren soll?
    <attribut attributname="aktion"></attribut>
    <attribut attributname="bereich"></attribut>
    <attribut attributname="dokumenttyp"></attribut>
    <attribut attributname="voname"></attribut>
    <attribut attributname="gz"></attribut>
    <attribut attributname="betreff"></attribut>
    <attribut attributname="wvtermin"></attribut>
    <attribut attributname="wvbemerkung"></attribut>
    <attribut attributname="anzeige"></attribut>
    <attribut attributname="druckfreigabe"></attribut>
    
    Gruß Jörg
    - GwenDragon
      
      2016-08-24 08:53
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Da musst du aber auf Linuxers Beitrag antworten, der hat dir doch das Programm gezeigt.
      Mein Hinweis bezog sich allgemein darauf, dass in Perl so eine Code-Zeile (Bandwurm) mehrzeilig geschrieben werden darf.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +3 replies
    - Linuxer
      
      2016-08-24 10:29
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Hi,
      
      keine Ahnung, welchen Code Du ausführst, aber mein zuletzt genannter und korrigierter kann das anscheinend nicht sein: Attributname sprengt Formatierung
      
      Wenn ich den ausführe, wird aus <attribut attributname="aktion"></attribut> ein <attribut attributname="aktion">Anlegen</attribut>.
      Da habe ich schon den Eindruck, dass wäre das was Du wolltest.
      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
      - Commu
        
        2016-08-24 13:44
        
        User since
        2016-08-23
        3 Artikel
        BenutzerIn
        
        Sorry und Danke für die Hilfe,
        
        hast du noch eine Idee wie ich eventuell ein zweites Attribut hinzufügen kann?
        
        Gruß Jörg
        
        Linuxer
        
        2016-08-24 23:50
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Auf die archaische Tour:
        
        Man kann sich die eingelesene Struktur mit Data::Dumper ausgeben lassen und erfährt so, wie die interne Struktur ausschaut.
        Danach passt man den Code an, um weitere Attribute hinzuzufügen.
        
        more (1.4kb)
        
        Neues Resultat:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
        
        <importrecord> <aktionen> <transaktion> <aktion> <parameter> <attribut attributname="aktion" foo="bar">Anlegen</attribut> <attribut attributname="bereich" /> <attribut attributname="dokumenttyp" /> <attribut attributname="voname" /> <attribut attributname="gz" /> <attribut attributname="betreff" /> </parameter> </aktion> </transaktion> </aktionen> <dateiname>24845_2874846.fmd</dateiname> </importrecord>
        
        Last edited: 2016-08-25 14:56:36 +0200 (CEST)
        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!

View all threads created 2016-08-23 13:44.