& XSLT Errata:)

$parser-> {foo} should be $parser->{Handler}{foo} in fact.
(foo = 'title|file')

>  
>  ------------------------------------------------------------------------
>  
>  use XML::SAX;
>  use XML::SAX::ExpatXS;
>  
>  my @xmlfiles = ('file1.xml', 'file2.xml', 'file3.xml');
>  
>  my $handler = new MySAXHandler;
>  my $parser = XML::SAX::ExpatXS->new(Handler => $handler);
>  
>  foreach my $file (@xmlfiles) {
>      $parser->{file} = $file;
>      $parser->{title} = 'does not have title';
>  
>      $parser->parse_uri($file);
>  
>      print "$file: $parser->{title}\n";
>  }
>  
>  package MySAXHandler;
>  use base qw(XML::SAX::Base); 
>  
>  sub start_element {
>      my ($self, $e) = @_;
>      $self->{title} = 'has title' if $e->{LocalName} eq 'title';
>  }
>  
>  
>  ------------------------------------------------------------------------
>  
>  _______________________________________________
>  Perl-XML mailing list
>  Perl-XML@[...].com
>  To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


-- 
Petr Cimprich
Ginger Alliance
www.gingerall.com
_______________________________________________
Perl-XML mailing list
Perl-XML@[...].com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs