… | |
… | |
20 | |
20 | |
21 | =cut |
21 | =cut |
22 | |
22 | |
23 | package XML::DB; |
23 | package XML::DB; |
24 | |
24 | |
|
|
25 | sub dk($) { |
|
|
26 | my $x = unpack "H*", $_[0]; |
|
|
27 | $x =~ y/a-z/A-Z/; |
|
|
28 | $x; |
|
|
29 | } |
|
|
30 | |
|
|
31 | use XML::Parser; |
|
|
32 | use PApp::SQL; |
|
|
33 | |
25 | #require Exporter; |
34 | #require Exporter; |
26 | require DynaLoader; |
35 | BEGIN { |
|
|
36 | $VERSION = 0.01; |
27 | |
37 | |
28 | $VERSION = 0.01; |
38 | use base DynaLoader; |
29 | @ISA = qw/DynaLoader/; |
|
|
30 | |
39 | |
31 | bootstrap DB $VERSION; |
40 | bootstrap XML::DB $VERSION; |
|
|
41 | } |
|
|
42 | |
|
|
43 | sub new { |
|
|
44 | my $class = shift; |
|
|
45 | bless { @_ }, $class; |
|
|
46 | } |
|
|
47 | |
|
|
48 | sub new_xml_insert_parser { |
|
|
49 | my $did = 55; |
|
|
50 | my $n = 1; |
|
|
51 | |
|
|
52 | my @children = ([]); |
|
|
53 | |
|
|
54 | new XML::Parser |
|
|
55 | NameSpaces => 1, |
|
|
56 | NoExpand => 1, |
|
|
57 | Handlers => { |
|
|
58 | Char => sub { |
|
|
59 | push @{$children[-1]}, ['pcdata', $_[1]]; |
|
|
60 | }, |
|
|
61 | Start => sub { |
|
|
62 | }, |
|
|
63 | End => sub { |
|
|
64 | }, |
|
|
65 | }, |
|
|
66 | @_, |
|
|
67 | ; |
|
|
68 | } |
32 | |
69 | |
33 | 1; |
70 | 1; |
34 | |
71 | |
35 | |
72 | |
36 | |
73 | |