note
gube
<p>Hi,
Use this below code <p>
<code>
#!/usr/local/bin/perl
use strict;
use warnings;
use XML::Simple qw/:strict/;
use Data::Dumper;
my $xml = qq{
<InteractionComponentList>
<InteractionComponent role_type="input" molecule_idref="200568"></InteractionComponent></InteractionComponentList>};
my $xml_simple = XML::Simple->new(KeyAttr => 1, KeepRoot => 1, ForceArray => 1);
my $output = $xml_simple->XMLin($xml);
my %hash = %{$output->{InteractionComponentList}[0]{InteractionComponent}[0]};
print Dumper(\%hash);
</code>
656542
656542