XML visualisieren mit Tk::XMLViewer

Tk::XMLViewer erzeugt ein Text-Widget, in dem XML-Tags farbig hervorgehoben werden und Knoten gefaltet werden können. Das XML-Beispiel wurde von der XML-Seite auf Wikipedia kopiert (09.03.2014).


Perl-Quellcode

#!perl

use strict;
use warnings;
use Tk;
use Tk::XMLViewer;

my $mw = tkinit();

my $xmlviewer = $mw->XMLViewer->pack;
my $xml = join("\n", <DATA>);

$xmlviewer->insertXML(-text => $xml);

$mw->MainLoop();
exit(0);

__DATA__
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<verzeichnis>
     <titel>Wikipedia Städteverzeichnis</titel>
     <eintrag>
          <stichwort>Genf</stichwort>
          <eintragstext>Genf ist der Sitz von ...</eintragstext>
     </eintrag>
     <eintrag>
          <stichwort>Köln</stichwort>
          <eintragstext>Köln ist eine Stadt, die ...</eintragstext>
     </eintrag>
</verzeichnis>
Top