sub StartHandler { my $expat = shift; my $element = shift; my %attr = @_; print $attr{PUBID}; #... } [download]
In reply to Re: Parsing XML - SAX events by holli in thread Parsing XML - SAX events by ghouse