Build a Term List from the XML Spec
use XML::Parser;
my $p = new XML::Parser Style => 'stream';
$p->parsefile($ARGV[0]);

sub StartDocument {
    print "<html><head><title>List of Terms</title></head>\n";
    print "<body><h2>List of Terms</h2>\n<dl>\n";
}
sub StartTag {
    my $expat = shift;
    if (/<termdef/) { print "<dt>$_{term}</dt><dd>"; }
    elsif (/<term>/) { print "<b>"; }
    # some termdefs include grammar productions, sigh
    elsif (/<prod/ && grep(/^termdef$/, $expat->context)) 
    { print "<br><tt>"; }
}
sub EndTag {
    my $expat = shift;
    if (/<termdef/) { print "<dt>$_{term}</dt><dd>"; }
    if (/<.termdef/) { print "</dd>\n"; }
    elsif (/<.term>/) { print "</b>"; }
    elsif (/<.prod/ && grep(/^termdef$/, $expat->context)) 
    { print "</tt>"; }
    elsif (/<.lhs/ && grep(/^termdef$/, $expat->context)) 
    { print " ::= "; }
}
sub Text {
    my $expat = shift;
    if (grep(/^termdef$/, $expat->context)
        && !grep(/^head$/, $expat->context))
    {
        s/&/&amp;/g;
        s/</&lt;/g;
        print;
    }
}
sub EndDocument { print "</dt></body></html>\n"; }
Title Page Road Map Where to Get These Slides Who Am I? What Is Perl? What Perl Is What Perl Feels Like Reasons to Love Perl Reasons to Fear Perl Perl's Competitors Perl Today How to Learn Perl How to Get Perl (It's Free!) Some Perl Packages Introducing CPAN Packages When To Use Perl Good Reasons to Use Perl Good Reasons to Avoid Perl The Perl/XML Software Architecture How the Pieces Fit Together XML Processor - Creating a Parser - Handling Tags - Handling Text - PIs & Comments - The Default Handler - Entity Declarations - External Entity References - Parsing Text! Package Package How the Pieces Fit Together Example 1 - Count Comments Declaring Handlers Event Handling Introducing Parser Object Methods Parser Object Method List Miscellaneous Options Namespace Processing Entity Control Multiple Documents in a Stream Switching Handlers XML::Parser Styles Style Style Styles Style Style Turn Verse Numbers to Attributes There's More Than One Way To Do It! That Irritating <p> OK, Lose the <p>'s There's More Than One Way To Do It! Find Jesus! Build a Term List from the XML Spec Perl/XML Applications Details Application Snippets Snippets Conclusions Lessons Perl and XML are mainstream technology!