use NAS;
use RRC;
use Layer1;
use Cwd;
use XML::Simple;
use Data::Dumper;
$xml = new XML::Simple (KeyAttr=>[]);# read XML file
$config =$xml->XMLin("Config_test.xml");
$top = $config->{ConfigRoot};
$start =$top->{debugDef};
$begin =$start->{general};
open report,">report.txt";
foreach my $var(@{$begin->{genCategory1}}){
print report $var->{sysTag},"\n\n\n";
$str=$var->{pm};
foreach my $var1(@{$var->{genCategory2}}){
print report $var1->{name},"\n\n";
$str1=$var1->{subroutine};
$regexp=$var1->{searchStr};
print $regexp,"\n";
$str->$str1($regexp);