3 # Cared for by Juguang Xiao, juguang@tll.org.sg
5 # Copyright Juguang Xiao
7 # You may distribute this script under the same terms as perl itself
10 # Note that the functionality of using the SAX event handler for
11 # parsing InterPro should by now be integrated into the main
12 # load_ontology.pl script. Let me know if that doesn't work for you
15 # I'll leave this script here around for a while until there is enough
16 # evidence that it all works through load_ontology.pl as well, so don't be
19 # -Hilmar, hlapp at gmx.net
22 use Bio
::OntologyIO
::Handlers
::InterPro_BioSQL_Handler
;
23 use XML
::Parser
::PerlSAX
;
24 use Bio
::DB
::EasyArgv
;
28 my $db = get_biosql_db_from_argv
;
32 'version=s' => \
$version
35 my $handler = Bio
::OntologyIO
::Handlers
::InterPro_BioSQL_Handler
->new(
37 -version
=> "version $version"
39 my $parser = XML
::Parser
::PerlSAX
->new(Handler
=>$handler);
40 my $ret = $parser->parse(Source
=>{SystemId
=>$file});