#!/usr/bin/perl -w
use strict;
open(READ, "test.xml") || die "Error opening test.xml: $!\n";
open(WRITE, ">new.xml") || die "Error opening new.xml: $!\n";
while(<READ>)
{
if( $_ eq q{<!-- Testing XML -->})
{
print WRITE <<"EWRITE";
<bar>
<name> TEST </name>
<type> Foo </type>
<!-- PDP Status -->
<unknown_sec> 0 </unknown_sec>
</bar>
EWRITE
}
if($_ eq "</ Test Tag>/)
{
print WRITE <<ETT;
<bar><value> TEST </value>
</bar>
ETT
}
if($_ eq "</v></row>\n")
{
s/\<\/row\>\n$//;
$_ .= "<v> UnKnown </v></row>\n";
}
print WRITE;
}
close(READ);
close(WRITE);