Main Koha release repository
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

28 lines
546 B

use strict;
use warnings;
use XML::SAX;
use Encode;
my $parser = XML::SAX::ParserFactory->parser(
Handler => MySAXHandler->new
binmode STDOUT, ':encoding(UTF-8)';
print "\x{65}\x{301}\n";
package MySAXHandler;
use base qw(XML::SAX::Base);
sub start_document {
my ($self, $doc) = @_;
# process document start event
sub start_element {
my ($self, $el) = @_;
# process element start event