Code:
my($type,$name);
while(<DATA>){
if(/.*the\s+(.*)\s+[Dd]omains.*server\s+(.*)/){
$type=$1;
$name=$2;
next;
}
print $name," ",$type," ",$_;
}
__DATA__
Following are the Process_Scheduler Domains running in the server Ram-pc
VPORCL
Following are the Application Server domains running in the server Ram-pc
VPORCL01
VPORCL02
