Shell Programming and Scripting

<?xml version="1.0"?>
<?xml-stylesheet type="text/xsl" href="Measurements.xsl" ?>
<!DOCTYPE mdc SYSTEM "Measurements.dtd">
<mdc xmlns:HTML="http://www.w3.org/TR/REC-xml">
  <mfh>
    <st>SUN</st>
    <vn>LIFE</vn>
    <cbt>20091126111000.2+0100</cbt>
  </mfh>
  <md>
    <neid>
      <neun>10101</neun>
      <nedn/>
    </neid>
    <mi>
      <mts>20091126111500.2+0100</mts>
      <gp>999</gp>
      <mt>CAP_LIFE</mt>
      <mt>COMPONENT_SENT</mt>
      <mt>COMPONENT_RECEIVED</mt>
      <mt>SENT</mt>
      <mt>RECEIVED</mt>
      <mt>LINK_LOAD</mt>
      <mt>LINK_LOAD_SENT</mt>
      <mv>
        <moid>Measurements=BoxID=3,CPU=0,HD=7, Source = TCP</moid>
        <r/>
        <r/>
        <r/>
        <r/>
        <r/>
        <r/>
        <r>6.27</r>
        <r>6.07</r>
        <r/>
        <r/>
        <r/>
        <r/>
        <sf>FALSE</sf>
      </mv>
      <mv>
        <moid>Measurements=BoxID=1,CPU=0,HD=5, Source = TCP</moid>
        <r/>
        <r/>
        <r/>
        <r/>
        <r/>
        <r/>
        <r>5.91</r>
        <r>5.91</r>
        <r/>
        <r/>
        <r/>
        <r/>
        <sf>FALSE</sf>
      </mv>
      <mv>
        <moid>Measurements=DEFAULT, Source = TCP</moid>
        <r>193.96</r>
        <r>46993</r>
        <r>23564</r>
        <r>35429</r>
        <r>24520</r>
        <r>196.59</r>
        <r/>
        <r/>
        <r/>
        <r/>
        <r/>
        <r/>
        <r/>
        <sf>FALSE</sf>
      </mv>
      <mv>
        <moid>Measurements=BoxID=5,CPU=0,HD=7, Source = TCP</moid>
        <r/>
        <r/>
        <r/>
        <r/>
        <r/>
        <r>6.21</r>
        <r>5.95</r>
        <r/>
        <r/>
        <r/>
        <r/>
        <r/>
        <sf>FALSE</sf>
      </mv>
      <mv>
        <moid>Measurements=BoxID=8,CPU=0,HD=8, Source = TCP</moid>
        <r/>
        <r/>
        <r/>
        <r/>
        <r/>
        <r>6.21</r>
        <r>0.13</r>
        <r/>
        <r/>
        <r/>
        <r/>
        <sf>FALSE</sf>
      </mv>
    </mi>
  </md>
  <mff>
    <ts>20091126111500.2+0100</ts>
  </mff>
</mdc>

#! /opt/third-party/bin/perl

open(FILE, "<", "a");

while(<FILE>) {
  chomp;
  my @arr = split(/></);
  foreach (@arr) {
    if( />/ && /</ ) {
      if( $. == 1 ) {
        s/(.*)>(.*)<.*$/\1|\2/;
        my($tmp1, $tmp2) = split(/\|/);
        $data .= (" " . $tmp2);
        printf "%s ", $tmp1;
      }
      else {
        s/(.*)>(.*)<.*$/\2/;
        printf "%s ", $_;
      }
    }
  }
  print "\n";
  print "$data\n" if( $. == 1 );
}

close(FILE);

exit 0