CMS-Experte | IT-Consultant in Berlin

#!/usr/bin/perl -w
# uniqueXPaths.pl reports all the unique element paths and their
# frequencies of the XML file supplied as the only mandatory
# argument on the command line.
#
# Copyright 2003, Ramiro Gómez.
#
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
use strict;
use XML::Parser;
use utf8; # Unicode support (not needed with Perl 5.8)

die "Usage: $0 XMLfile" unless @ARGV;
my $xmlfile = shift;