5 $p = new XML::Parser(Handlers => {Start => \&handle_start,
7 Char => \&handle_char});
8 $p->parsefile($ARGV[0]);
18 my ($expat, $element, @attrs) = @_;
23 if ($skipped < 2) { $skipped++ ; }
32 my ($expat,$element) = @_;
35 $content =~ s/'/\\'/g;
36 $element =~ s/://g; # dc:pippo ==> dcpippo
37 print "insert into $element values ('$content','$uri');\n";
43 my ($expat,$char) = @_;