Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Visualize a XML Document as a Tree

by choroba (Chancellor)
on Aug 26, 2013 at 11:16 UTC ( #1050944=CUFP: print w/replies, xml ) Need Help??

Some of you might have experienced it, too. You work with an XML document whose structure is complicated. Constructing XPath queries becomes boring at last, even in an interactive XML processing tool like XML::XSH2. A diagram would help.

Here is a short xsh script that creates a dot source code. Just pipe its output to dot to get a nice graphical representation of the XML structure!

# xml2dot.xsh # Author: E. Choroba 2013 open {$ARGV[0]} ; my $count ; def processNonRec $type $parent $node { my $name = $type ; perl { $name .= $count->{"*$type"}++ } ; echo :s '"' $parent '"' " -> " '"' $name '"' ; echo :s '"' $name '" [label="' $type '()"]' ; } def processNode $parent $node { my $label = name($node); my $name ; perl { $name = $label."=".$count->{$label}++ } ; echo :s '"' $parent '"' " -> " '"' $name '"' ; if $node/self::* { if (count($node/../*[name()=$label]) > 1) { my $num = count($node/preceding-sibling::*[name()=$label]) + ; $label = concat($label,"[",$num+1,"]") ; } } else { $label = concat("@",$label) ; } echo :s '"' $name '" [label="' $label '"]' ; for ($node/* | $node/@* | $node/text() | $node/comment() | $node/processing-instruction()) { if self::* processNode $name (.) ; if count(.|../@*)=count(../@*) processNode $name (.) ; if self::text() processNonRec 'text' $name (.) ; if self::comment() processNonRec 'comment' $name (.) ; if self::processing-instruction() processNonRec 'pi' $name (.) + ; } } echo 'strict digraph' name() '{' ; echo 'node [shape=box]' ; processNode "document" /* ; echo '}' ;

Example usage:

xsh -al xml2dot.xsh data.xml | dot -Tpng > data.png
لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://1050944]
Front-paged by Corion
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (6)
As of 2016-12-08 22:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (148 votes). Check out past polls.