NAD(P)H NAD(P) H GWBC41 GWBC43 NADPH TPNH 2646-71-1 C21H30N7O17P3 NAD(P)H [C@H]1(O[C@@H]([C@@H](O)[C@H]1OP(=O)([O-])[O-])COP(=O)(OP(=O)(OC[C@H]2[ C@@H](O)[C@@H](O)[C@@H](O2)N3C=C(CC=C3)C(=O)N)[O-])[O-])[N+]4=C5C(=NC4)C(=NC =N5)N NC(=O)C1=CN(C=CC1)[C@@H]2O[C@H](COP(=O)(O)OP(=O)(O)OC[C@H]3O[C@H]([C@H] (OP(=O)(O)O)[C@@H]3O)n4cnc5c(N)ncnc45)[C@@H](O)[C@H]2O C139 KLM0000287 C00005 no ref NADH DPNH C21H29N7O14P2 NAD(P)H [C@H]1(O[C@@H]([C@@H](O)[C@H]1O)COP(=O)(OP(=O)(OC[C@H]2[C@@H](O)[C@@H]( O)[C@@H](O2)N3C=CCC(=C3)C(=O)N)[O-])[O-])[N+]4=C5C(=NC4)C(=NC=N5)N C136 KLM0000285 C00004 ##

##

use XML::Parser;

# Variables
my $xmlp;
my $currentTag = "";

# Prototypes

# Create new parser and set callbacks
$xmlp = new XML::Parser();
$xmlp->setHandlers(
                    Start => \&start,
                    End   => \&end,
                    Char  => \&cdata
                  );

# Parse the file
$xmlp->parsefile("../thes_ex.xml");


# Called when a tag is started
sub start()
{
	# extract variables
	my ($parser, $name, %attr) = @_;
	$currentTag = lc($name);

  print "start $currentTag\n";
}


# Called when a tag is ended
sub end()
{
	# extract variables
	my ($parser, $name) = @_;
	$currentTag = lc($name);
	
  print "ended $currentTag\n";

	# clear value of current tag
	$currentTag = "";
	$cdata = "";
}


# Called when CDATA section found
sub cdata()
{
	my ($parser, $data) = @_;
  
  print "cdata: $data\n";
}