Re: [xml-dev] element census tool?

[Michael Sokolov <sokolov@ifactory.com>]

And below is my hoary perl version.  It also keeps track of element 
ancestry and reports statistics on all unique paths.  Also for some 
attributes you may often want to know how often a particular value 
occurs, wheras for others (ids, uris, etc) you don't.  I generally 
fiddle with the script once I have a bit of knowledge about the tagging 
and dataset, but perhaps this could be automated somewhat by counting 
numbers of distinct values?

-Mike

On 2/2/2011 12:12 PM, Simon St.Laurent wrote:
> I know I could write this myself, but suspect someone else has already 
> done a better job of it - and I just don't know the right Google 
> keywords to summon it.
>
> I'm looking for a tool that I can feed an XML document, and it will 
> tell me which element names were used in the document.
>
> Attributes used on those elements would be a bonus, as would a 
> frequency count for usage, but mostly I'm just trying to survey a 
> collection of (DocBook) documents quickly.
>
> All suggestions welcome.
>
#!/usr/bin/perl
use warnings;
use strict;

use XML::Parser;

use vars qw" %tagfreq @tagstack %pathfreq";

  MAIN:
{
     my $parser = new XML::Parser(Handlers => {Start => \&handle_start,
                                               End   => \&handle_end,
                                               #Char  => \&handle_char
                                  });
     @tagstack = ('');

     for my $file (@ARGV) {
         open (XML, $file) || die "can't open $file: $!";
         $parser->parse (*XML);
         close XML;
     }
     for my $tagname (sort keys %tagfreq) {
         print $tagname, ' ', $tagfreq{$tagname}, "\n";
     }
     for my $path (sort keys %pathfreq) {
         print $path, ' ', $pathfreq{$path}, "\n";
     }
}

sub handle_start {
     my ($parser, $element, %attr) = @_;
     $tagfreq{$element}++;
     for my $attr (keys %attr) {
         if ($attr eq 'url' || $attr eq 'linkend' || $attr eq 
'xreflabel' || $attr =~ /id$/i || $attr =~ /ref$/i || $attr eq 
'linebreaks' ) {
             $tagfreq{$element . '@' . $attr}++;
         } else {
             $tagfreq{$element . '@' . $attr . '=' . $attr{$attr}}++;
         }

     push @tagstack, $element;
     $pathfreq {join ('/', @tagstack)}++;
}

sub handle_end {
     pop @tagstack;
}