Textzeilen einer XML-Datei ersetzen (sonstige Sprachen, auch PHP)

[thread]16279[/thread]

Textzeilen einer XML-Datei ersetzen

Tags: XML Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+18 replies
pomaranc

2011-05-11 20:02
User since
2011-05-11
18 Artikel
BenutzerIn
Hallo,

ich lasse mir von einem Programm eine XML als Kapiteldatei für das Contanerformat Matroska erstellen. Nun müsste ich mehrere Einträge in der XML ersetzen, immer durch die gleiche Textzeile.

Hier ein Auszug aus der XML:
Code: (dl )

1 2 3 4 5 6

<ChapterFlagHidden>0</ChapterFlagHidden> <ChapterFlagEnabled>1</ChapterFlagEnabled> <ChapterDisplay> <ChapterString></ChapterString> <ChapterLanguage>eng</ChapterLanguage> </ChapterDisplay>
Nach ~~dem fett markierten~~ Zeile 2 soll etwas eingefügt werden

Dass das ganze so aussieht:
Code: (dl )

1 2 3 4 5 6 7 8 9

<ChapterFlagHidden>0</ChapterFlagHidden> <ChapterFlagEnabled>1</ChapterFlagEnabled> <ChapterSegmentUID format="hex"> bcffc7fe80230cf7beb6e08bc38ca5d6 </ChapterSegmentUID> <ChapterDisplay> <ChapterString></ChapterString> <ChapterLanguage>eng</ChapterLanguage> </ChapterDisplay>
Die Zeile ist immer die gleiche, der Teil <ChapterFlagEnabled>1</ChapterFlagEnabled> kommt mehrfach vor, dahinter soll halt der andere Teil einsortiert werden.

Selbst hab ich außer ein wenig HTML keine Programmierkenntnisse. Geht sowas mit Perl oder so zu machen?

modedit Editiert von GwenDragon: Fett-BBCode aus Code entfernt; Hinweis auf wichtige Zeile
Last edited: 2011-05-12 14:31:07 +0200 (CEST)
- +17 replies
- pq
  
  2011-05-11 20:22
  User since
  2003-08-04
  12209 Artikel
  Admin1
  also wenn die datei wirklich immer haargenau so aussieht, kannst du das mit einem perl-einzeiler machen:
  
  Code: (dl )
  
  perl -pi.bak -we'BEGIN { undef $/ } s{(<ChapterFlagEnabled>1</ChapterFlagEnabled>)}{$1\n <ChapterSegmentUID format="hex">\n bcffc7fe80230cf7beb6e08bc38ca5d6\n </ChapterSegmentUID>}' datei.xml
  
  ohne backupdatei perl -pi -we
  
  ansonsten sind bei xml-manipulationen generell xml-parser zu empfehlen. mit XML::LibXML z.b. könnte man das hier machen.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +16 replies
  - pomaranc
    
    2011-05-11 20:34
    
    User since
    2011-05-11
    18 Artikel
    BenutzerIn
    
    Nein, die Datei sieht nicht immer genau aus. Aber ein Bereich soll immer an der gleichen Stelle mit immer dem gleichen Inhalt eingefügt werden. Ich dachte es mir so, dass man so ähnlich wie "suche & ersetzen" die Zeile vor dem einzufügenden Teil sucht und diese genauso wieder zusammen mit den zusätzlichen Zeilen einfügt.
    
    Den Parser guck ich mir mal an.
    - +15 replies
    - topeg
      
      2011-05-11 23:42
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      Wenn die gesuchten Stellen immer wieder anders aussehen, wie willst du sie genau bestimmen? Was unterscheidet sie von allen anderen Stellen in der Datei? Was macht sie einzigartig?
      - +14 replies
      - pomaranc
        
        2011-05-12 13:57
        
        User since
        2011-05-11
        18 Artikel
        BenutzerIn
        
        Der Teil <ChapterFlagEnabled>1</ChapterFlagEnabled> kommt mehrfach vor, dieser Teil soll gesucht und durch (z. B.)
        
        <ChapterFlagEnabled>1</ChapterFlagEnabled>
        <ChapterSegmentUID format="hex">
        bcffc7fe80230cf7beb6e08bc38ca5d6
        </ChapterSegmentUID>
        
        ersetzt werden. Ich dachte an sowas wie suche und ersetzen. Falls sich der Teil <ChapterFlagEnabled>1</ChapterFlagEnabled> einmal ändert, ändere ich einfach den "suchen"-Teil entsprechend ab. Beim einzufügenden Teil sich zwangsläufig von Datei zu Datei die UID ändern, aber innhalb einer XML wird es immer der gleiche sein, also der "Ersetzen"-Teil.
        
        Hoffe man konnte mir folgen.
        
        edit
        Der Parser ist nur für Linux? Ich arbeiter unter Windows. Welcher Parser wäre denn da zu empfehlen?
        Last edited: 2011-05-12 14:04:27 +0200 (CEST)
        
        +13 replies
        
        pq
        
        2011-05-12 14:00
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        hast du mal meinen vorschlag ausprobiert?
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +12 replies
        
        pomaranc
        
        2011-05-12 14:10
        
        User since
        2011-05-11
        18 Artikel
        BenutzerIn
        
        Hatte ich vergessen, sorry, aber gerade nachgeholt. Ich vermute ich geben die zu bearbeitende xml-Datei ganz am Ende an, wo du "datei.xml" geschrieben hast? Ich hab die zu bearbeitende Datei in datei.xml umgenannt, das Skript in eine TXT-Datei im gleichen Ordner kopiert, in *.pl umbenannt und ausgeführt. Ändert an der xml aber nichts. Eine Fehlermeldung kommt keine. Ich hab Strawberry Perl 5.12.1 installiert.
        
        Die Zeile <ChapterFlagEnabled>1</ChapterFlagEnabled> müsste aber mit eingefügt werden, die dient ja nur zum aufsuchen, gelöscht werden darf sie nicht.
        
        Kennst du einen guten Parser für Windows? Der oben verlinkte scheint mir nur für Linux zu sein.
        
        +11 replies
        
        pq
        
        2011-05-12 14:19
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        du hast "das skript" in eine datei geschrieben?
        das ist ein einzeiler.
        
        wenn du unter windows arbeitest, musst du im übrigen einzeiler mit double quotes begrenzen statt single quotes. und nix in irgendein skript schreiben. einfach auf der kommandozeile perl -pi.bak ... eingeben.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +10 replies
        
        pomaranc
        
        2011-05-12 14:38
        
        User since
        2011-05-11
        18 Artikel
        BenutzerIn
        
        In der Kommandozeile hat es funktioniert, aber nur bei dem ersten "Fund" (d. h. der ersten Stele wo <ChapterFlagEnabled>1</ChapterFlagEnabled> steht. Die anderen wurden ignoriert.
        
        Ich habs auch nochmal überprüft, die Stellen sind definitiv absolut gleich. "Suchen" im Texteditor findet diese.
        
        +9 replies
        
        pq
        
        2011-05-12 14:40
        
        User since
        2003-08-04
        12209 Artikel
        Admin1
        
        aha. wenn es mehrere sind (hattest du am anfang nicht explizit erwähnt), musst du noch ein /g an die substitution anhängen (g für global).
        also statt s{...}{...} nun: s{...}{...}g
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +8 replies
        
        Gast pomaranc
        
        2011-05-12 17:23
        
        Hatte ich evtl. etwas blöd geschrieben. Bei nur einer Textstelle wäre das einfügen nicht das Thema, wenn du aber ein paar Dutzend hast schon.
        
        Hat jetzt geklappt, danke dafür.
        
        Kann man den Einzeiler auch in ein PL-Skript packen? Ist einfacher als der Umweg über die Kommandozeile.
        
        +7 replies
        
        Gast wer
        
        2011-05-12 17:47
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
        
        #!/usr/bin/perl use strict; use warnings; my $file=shift(@ARGV) or die("NO FILE!\n"); my $bak="$file.bak"; rename($file,$bak) or die("ERROR REMANE $file => $bak ($!)\n"); open(my $fhin, '<', $bak) or die("ERROR OPEN $bak ($!)\n"); open(my $fhout, '>', $file) or die("ERROR OPEN $file ($!)\n"); while(my $line=<$fhin>) { $line=~s{(<ChapterFlagEnabled>1</ChapterFlagEnabled>)}{$1\n <ChapterSegmentUID format="hex">\n bcffc7fe80230cf7beb6e08bc38ca5d6\n </ChapterSegmentUID>}g; print $fhout $line; } close($fhout); close($fhin); unlink($bak);
        
        modedit Editiert von GwenDragon: Tippfehler in Programm verbessert
        Last edited: 2011-05-12 17:56:46 +0200 (CEST)
        
        +6 replies
        
        pomaranc
        
        2011-05-12 18:18
        
        User since
        2011-05-11
        18 Artikel
        BenutzerIn
        
        Kann es sein, dass im Skript die Angabe fehlt, welche xml zu ändern ist?
        
        +5 replies
        
        Gast wer
        
        2011-05-12 18:19
        
        Aufruf:
        
        Code: (dl )
        
        script.pl file.xml
        
        Last edited: 2011-05-12 18:21:20 +0200 (CEST)
        
        +4 replies
        
        pomaranc
        
        2011-05-12 18:38
        
        User since
        2011-05-11
        18 Artikel
        BenutzerIn
        
        Du meinst sicher, wenn ich die pl-Datei über die Kommandozeile starte? Ich meinte den Namen der XML direkt in dem Skript angeben.
        
        +3 replies
        
        GwenDragon
        
        2011-05-12 18:45
        
        User since
        2005-01-17
        14875 Artikel
        Admin1
        
        Zeile 4:
        
        Code (perl): (dl )
        
        my $file=shift(@ARGV) || 'MEINEDATEI.xml'; # Dateinamen in den gewünschten ändern!
        
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        pomaranc
        
        2011-05-14 10:16
        
        User since
        2011-05-11
        18 Artikel
        BenutzerIn
        
        Danke, jetzt gehts.
        
        GwenDragon
        
        2011-05-14 14:38
        
        User since
        2005-01-17
        14875 Artikel
        Admin1
        
        Markiere doch bitte dann den Thread als gelöst.
        Oben neben Thread als gelöst markieren: der grüne Haken.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2011-05-11 20:02.