2 |
## $Id$ |
## $Id$ |
3 |
## ------------------------------------------------------------------------ |
## ------------------------------------------------------------------------ |
4 |
## $Log$ |
## $Log$ |
5 |
|
## Revision 1.3 2003/05/13 08:08:17 joko |
6 |
|
## comments, todos |
7 |
|
## |
8 |
## Revision 1.2 2003/02/21 07:58:48 joko |
## Revision 1.2 2003/02/21 07:58:48 joko |
9 |
## enhanced error detection |
## enhanced error detection |
10 |
## |
## |
31 |
use XML::Parser; |
use XML::Parser; |
32 |
use XML::Parser::EasyTree; |
use XML::Parser::EasyTree; |
33 |
use XML::XPath; |
use XML::XPath; |
34 |
|
# TODO: use XML::Writer and/or XML::ValidWriter |
35 |
|
|
36 |
sub sendQuery { |
sub sendQuery { |
37 |
my $self = shift; |
my $self = shift; |
100 |
my $self = shift; |
my $self = shift; |
101 |
|
|
102 |
$XML::Parser::EasyTree::Noempty = 1; |
$XML::Parser::EasyTree::Noempty = 1; |
103 |
|
# what about ... |
104 |
|
#$XML::Parser::EasyTree::Latin = 1; |
105 |
|
# ... instead of an otherwise required |
106 |
|
# "expand" with proper utf8/latin-conversion |
107 |
|
# parameters set? |
108 |
|
|
109 |
# convert xml data to native perl data structure |
# convert xml data to native perl data structure |
110 |
#my $parser = XML::Parser->new( Style => 'EasyTree', Handlers => { Char => sub { my $char = shift; print "char: ", Dumper($char), "\n"; } } ); |
#my $parser = XML::Parser->new( Style => 'EasyTree', Handlers => { Char => sub { my $char = shift; print "char: ", Dumper($char), "\n"; } } ); |