mit xml::twig module von txt file xml file generieren (Fragen zu Perl-Modulen)

[thread]15083[/thread]

mit xml::twig module von txt file xml file generieren

Tags: XML Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+8 replies
osprofi

2010-06-01 16:09

User since
2005-07-29
6 Artikel
BenutzerIn

Thema: XML, XML::Twig, #finden und schreiben von nodes

Hallo Perl Freunde,

Ich habe folgende txt datei :
...
00000 A0361
A0361 A0323
A0323 A0351
A0351 A0362
A0351 A0363
...
A0323 A0324
A0324 A0325
A0324 A0326
...

und will folgende xml datei daraus generieren mit dem Modul xml::twig:

1 <A0361>
2 <A0323>
3 <A0351>
4 <A0362/>
5 <A0363/>
6 </A0351>
7 <A0324>
8 <A0325/>
9 <A0326/>

Die Zeilen 1..5 konnte ich schreiben. Jedoch danach habe ich probleme den vorherigen Node A0323 zu lokalisieren und dort weiter zu schreiben.

Meine Annahmen sind, dass
- man die Methode get_xpath nutzen sollte, um die Nodes zu finden,
jedoch listet diese Methode den Node nur auf und gibt nicht den Ort
zurueck
- man danach mit dem neuen Node und der Adresse die Methode
paste($position, $ref) nutzen sollte

Beispiel:
my @position=$twig->get_xpath(qq{//A0323});
The result is XML::Twig::Elt=HASH(0x1915ce4)

Leider benoetige ich die Position des Nodes A0323 und nicht nur den Namen.

Kann mir hier jemand einen Rat geben, wie ich das Problem loesen kann ?

Peter
- +3 replies
- bianca
  
  2010-06-01 16:16
  
  User since
  2009-09-13
  6980 Artikel
  BenutzerIn
  
  Frage am Rande: Wieso hast Du diesen Thread schon als gelöst markiert, bevor die erste Antwort kommt?
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - osprofi
    
    2010-06-01 17:36
    
    User since
    2005-07-29
    6 Artikel
    BenutzerIn
    
    Hallo Bianca,
    dies ist ein Fehler, der mir beim Posten passiert ist.
    - renee
      
      2010-06-01 17:37
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Ich habe den Haken wieder rausgenommen.
      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/
- +4 replies
- renee
  
  2010-06-01 17:36
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Ich würde das ungefähr so machen:
  
  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 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56
  
  #!/usr/bin/perl use strict; use warnings; use Data::Dumper; my %hash = read_txt(); my $start = '00000'; my $xml = get_xml( \%hash, $start ); print $xml; sub get_xml { my ($hashref, $start) = @_; my $real_start = $hashref->{$start}->[0]; return get_node( $hashref, $real_start, 0 ); } sub get_node { my ($hashref,$name,$level) = @_; my $tab = "\t" x $level; my @children = map{ get_node( $hashref, $_, $level + 1 ) }@{ $hashref->{$name} || [] }; if ( @children ) { my $children_string = join "\n", @children; return sprintf "%s<%s>\n%s\n%s</%s>", $tab, $name, $children_string, $tab, $name; } return sprintf "%s<%s/>", $tab, $name; } sub read_txt { my %parent_child_map; while ( my $line = <DATA> ) { chomp $line; next unless $line; my ($parent,$child) = split /\s+/, $line; push @{ $parent_child_map{ $parent } }, $child; } return %parent_child_map } __DATA__ 00000 A0361 A0361 A0323 A0323 A0351 A0351 A0362 A0351 A0363 A0323 A0324 A0324 A0325 A0324 A0326
  
  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/
  - +3 replies
  - osprofi
    
    2010-06-01 22:31
    
    User since
    2005-07-29
    6 Artikel
    BenutzerIn
    
    Hallo Renee!
    danke fuer die superschnelle Antwort.
    Ich werde Deine Loesung versuchen, habe jedoch noch eine andere Frage:
    Du hast auf einer Webseite geschrieben, dass Du die meisten XML Programme mit XML::LibXML erledigst. Ich las, dass dieses Modul schneller ist als das Modul XML::Twig.
    Welches Modul wuerdest Du fuer das Schreiben von XML Dateien von Txt Dateien empfehlen ?
    Viele Gruesse
    - +2 replies
    - renee
      
      2010-06-02 08:44
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Wenn Du das XML nicht so generieren willst, wie ich es oben gemacht haben, würde *ich* das mit XML::LibXML machen. Aus zwei ganz einfachen Gründen:
      
      1. Ich kenne mich mit XML::LibXML mittlerweile besser aus als mit XML::Twig (da weiß ich nicht mal, wie man da ein komplett neues XML-Dokument erstellt)
      
      2. In den meisten Programmen, in denen ich XML generieren muss, muss ich auch XML parsen. Und da verwende ich XML::LibXML und ich will nicht mit mehreren XML-Modulen arbeiten.
      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/
      - osprofi
        
        2010-06-02 14:21
        
        User since
        2005-07-29
        6 Artikel
        BenutzerIn
        
        Hallo Renee,
        Deine Loesung funktioniert bestens;
        Vielen Dank fuer die schnelle Unterstuetzung
        
        Ich habe jedoch noch eine Frage:
        wie kann ich in der sub-routine get_node anstelle eines screen outputs mit sprintf einen string generieren und in ein xml string einfuegen ?
        
        Ich habe folgenden xml file aus der txt Datei generiert:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
        
        <?xml version="1.1" encoding="UTF-8"?> <LANGUALSCHEME> <HEADER> <EXPORTDATE>2008-10-12</EXPORTDATE> <UPDATEDATE>2010-05-25</UPDATEDATE> <TITLE>LanguaL 2008 Thesaurus Full Structure, Facet A extracted</TITLE> <NOTES> <NOTE>This is the official XML export file for LanguaL</NOTE> <NOTE>This file was updated 22 NOV 2008 to include USDA ( A1269, A1271-A1294) , BLS ( A1295-A1537)</NOTE> <NOTE>added FTC A1295 ... A1537</NOTE> <NOTE>added FTC B3600, B3601, B3602, B3603, B3604</NOTE> <NOTE>added FTC H0800, H0801, H0802, H0803, H0804, H0805, H0806, H0807, H0808, H0809</NOTE> <NOTE>added FTC H0810, H0811, H0812, H0813, H0814, H0815, H0816, H0817, H0818, H0819</NOTE> <NOTE>added FTC H0820, H0821</NOTE> </NOTES> </HEADER> <DESCRIPTORS/> </LANGUALSCHEME>
        
        und moechte in das Tag <Descriptors> mit dem Modul LibXML die xml tags einfuegen:
        
        Code: (dl )
        
        1 2 3 4 5
        
        <A0361> <A0323> <A0351> <A0362/> ...
        
        welche ich mit den Routinen get_xml und get_node generiert habe ?
        
        Viele Gruesse
        Peter
        
        //MODEDIT GwenDragon: Bitte das nächste Mal Code-Mit Code-Button einfügen.
        Last edited: 2010-06-03 16:48:24 +0200 (CEST)

View all threads created 2010-06-01 16:09.