Help for this page

Select Code to Download

Select or download this

    my $p=new XML::Parser(Style=>'Stream') 
        or die ("Couldn't make new Parser\n$GOODBYE\n");
    $p->parsefile($logfile, ErrorContext => 0) ;
        #or die ("Couldn't invoke parsefile in XML::Parser...\n$GOODBY
+E\n");

Select or download this

sub StartTag {
  my ($expat,$eltype)=@_;
...
    $source[$i] = $_{t};
  } else { die "invalid element: $eltype"; }
}