TSC1 - Torque/Speed Cntrl 1 ln1 True net0 TSC1 - Torque/Speed Cntrl 1 ln2 True net0 0_SPN695 Eng. Override sig695 1 ##

##

 

 
   
     TSC1 - Torque/Speed Cntrl 1 (ln1)
     ln1
     True
     net0
     
     
   
   
     TSC1 - Torque/Speed Cntrl 1 (ln2)
     ln2
     True
     net0
     
        
          0_SPN695 Eng. Override 
          sig695
          1
        
     
   


##

##

#!/usr/bin/perl -w 

use XML::XPath;
use Data::Dumper;

$file = "test.xml";
$xp = XML::XPath->new(filename => $file);

@nodes = $xp->findnodes("/xdoc/MsgSigs/MsgSig");

foreach (@nodes) {
   $key = $_->findvalue('Key');
   $descr = $_->findvalue('Description');
   $text = $descr . "(" . $key . ")";

   # A setValue would be awesome right about now or an 
   #  appendtext
   
   $_->
   print $_->findvalue('Description'), "\n";
}

#print out to xml file