misc/sax_parser_test.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use XML::SAX;
   7 use Encode;
   8
   9 my $parser = XML::SAX::ParserFactory->parser(
  10 Handler => MySAXHandler->new
  11 );
  12 binmode STDOUT, ":utf8";
  13 print "\x{65}\x{301}\n";
  14 $parser->parse_string(encode_utf8("<xml>\x{65}\x{301}</xml>"));
  15 $parser->parse_string("<xml>\xEF\xBB\xBF\x{65}\x{301}</xml>");
  16
  17 package MySAXHandler;
  18
  19 use base qw(XML::SAX::Base);
  20 sub start_document {
  21  my ($self, $doc) = @_;
  22  # process document start event
  23 }
  24
  25 sub start_element {
  26  my ($self, $el) = @_;
  27  # process element start event
  28 }