#!/bin/perl -w
use strict;
use XML::Twig;

my $leader_name;
my $leader_score=0;

#my $field0= 'PC-Compound';
my $field1= 'PC-CompoundType_id_cid';
my $field2= 'PC-InfoData_value_binary';

my $twig= new XML::Twig( twig_roots    => {$field1 => 1, $field2 => 1 } );
$twig->parsefile( "D:/NCI-Open/vice shlavickou.xml");
my $root= $twig->root;
my @cpds= $root->children_text($field1);
my @bins= $root->children_text($field2);
print "@cpds\n";
print "@bins\n";
#$twig->print;

##</code><code>##

<PC-Compound>
    <PC-Compound_id>
      <PC-CompoundType>
        <PC-CompoundType_id>
          <PC-CompoundType_id_cid>1</PC-CompoundType_id_cid>
        </PC-CompoundType_id>
      </PC-CompoundType>
    </PC-Compound_id>
    <PC-Compound_atoms>
    </PC-Compound_atoms>
    
    
   
    <PC-Compound_props>
      <PC-InfoData>
      </PC-InfoData>

      <PC-InfoData>
        <PC-InfoData_urn>
          <PC-Urn>
          </PC-Urn>
        </PC-InfoData_urn>
        <PC-InfoData_value>
          <PC-InfoData_value_binary>00000371E0723800000000000000000000000000000000000000000000000000000000000000001E00000000000814E180060208030004000800009008000000000000000000010800000200140080000700000520001000002400000000000000000000000000000000000000000000000000</PC-InfoData_value_binary>
        </PC-InfoData_value>
      </PC-InfoData>
      
      <PC-InfoData>
      </PC-InfoData>
      
  </PC-Compound>