#!/usr/local/bin/perl -w

use strict;
use XML::DOM;

my $str = <<END;
&lt;?xml version="1.0"?&gt;
<!-- simple queue machine usage of multiple queue -->
<!DOCTYPE machine_usage [
   <!ELEMENT machine_usage (machine+)>
   <!ELEMENT machine (code, type, load, summary, queues)>
   <!ELEMENT code (#PCDATA)>
   <!ELEMENT type (#PCDATA)>
   <!ELEMENT load (#PCDATA)>
   <!ELEMENT summary (usage+)>
   <!ELEMENT queues (queue+)>
   <!ATTLIST queues count CDATA #REQUIRED>
   <!ELEMENT queue (usage+)>
   <!ATTLIST queue name CDATA #REQUIRED> 
   <!ELEMENT usage EMPTY>
   <!ATTLIST usage 
      type CDATA #REQUIRED
      value CDATA #REQUIRED>
]>
<machine_usage>
   <machine>
      <code>SPHN</code>
      <type>IBM Blue Horizon at SDSC</type>
      <load>920 of 1152 processors busy.</load>
      <summary>
         <usage type="Running" 		value="2"/>
         <usage type="Queued" 		value="0"/>
         <usage type="Other" 		value="0"/>
         <usage type="Total" 		value="2"/>
      </summary>
      <queues count="1">
         <queue name="high">
            <usage type="Running" 	 value="2"/>
            <usage type="Queued" 	 value="0"/>
            <usage type="Other" 	 value="0"/>
            <usage type="Total" 	 value="2"/>
            <usage type="Limit" 	 value=""/>
         </queue>
      </queues>
   </machine>
</machine_usage>
END

my $parser = new XML::DOM::Parser (ParseParamEnt => 1,
                                   KeepCDATA => 1);

my $node = $parser->parse ($str);

my $nodes= $node->getElementsByTagName ( "usage" );
my $n = $nodes->getLength;
for (my $i = 0; $i < $n; $i++) {
   process_usage( $node, $nodes->item ($i)); 
}

print $node->toString;
exit;

# USAGE HANDLER
sub process_usage  
{
   my ( $node, $usage )= @_;
   my $map = $usage->getAttributes;
   my $list = $map->getValues;
   for my $val ( @$list ) {
      my $arg  = $val->getName;
      my $tag  = $node->createElement( $arg ); 

      my $argv = $val->getNodeValue;
      my $text = $node->createTextNode( $argv );

      $tag->appendChild( $text );
      $usage->appendChild( $tag );
   }
   $usage->removeAttribute( 'type' );   
   $usage->removeAttribute( 'value' );   
}