#!/usr/bin/perl 
use XML::Simple; 
use Data::Dumper; 
 
$xml = new XML::Simple; 
 
@xmlkeys=(); 
@xmlvals=(); 
 
$data = $xml->XMLin('inifile.xml', KeepRoot => 1); 
&listhash ( $data, 0,"" ); 
XMLout($data, KeepRoot => 1, OutputFile => 'xinifile.xml'); 
print Dumper($data); 
 
print "#############################################\n"; 
 
$numkeys=$#xmlkeys; 
 
print $#xmlkeys,"\n"; 
print $#xmlvals,"\n"; 
 
 
 
foreach $t (@xmlvals) { 
	print $t,"\n"; 
	} 
 
print "#############################################\n"; 
 
foreach $t (@xmlkeys) { 
	print $t,"\n"; 
	} 
 
print "HIER\n"; 
 
############################################################################### 
sub listhash { 
  my %myhash = %{$_[0]};  
  my $mylevel = $_[1];  
  my $parentkey=$_[2];  
  my $mykey = ''; 
  my $myval = ''; 
  my $myderefval = ''; 
 
  foreach $mykey( keys(%myhash) ) { 
#    print "$mylevel KEY  $mykey\n"; 
#    print "$parentkey KEY  $mykey\n"; 
    $myval=  $myhash{$mykey}; 
    $myderefval=\$myhash{$mykey};   
 
   if ($myderefval =~ "^SCALAR") {   
      push (@xmlkeys, $parentkey.'**'.$mykey); 
      $myval =~ s/\s+$//g; 
      push (@xmlvals, $myval ); 
 
#if ($myval =~ "^SAPXML_DBSCHEMA" ) { 
#        print "HIER\n"; 
#        die; 
#        $myhash{$mykey} = 'JOW_DBSCHEMA'; 
#     } 
    } 
 
    if ($myderefval  =~ "^REF") { 
      if ($myval =~ "^HASH") { 
         &listhash ( $myval, $mylevel+1, $parentkey.'**'.$mykey ); 
      } 
    } 
  } 
#  return $mystring; 
 
}

perl -pi -e  's/XML_SID/My Concretized XML_SID Value/' inifile.xml

#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
use XML::Twig; 
 
sub handle_cdata { 
    my ($twig, $ele) = @_; 
 
    # I had trouble parsing just the #CDATA tags, so I start 
    # a couple of levels up. 
    my $strval = $ele->first_child('strval'); 
    return unless $strval; 
    my $cdata = $strval->first_child('#CDATA'); 
    return unless $cdata; 
 
    if ($cdata->text eq "XML_SID") { 
        # Replace XML_SID meta with something else. 
        my $ncdata = new XML::Twig::Elt( '#CDATA', "My Concretized XML_SID value"); 
        $ncdata->replace($cdata); 
    } 
} 
 
# If other tags besides 'fld's contain stuff you want to 
# transform, put them here. 
my $handlers = { 
    'fld' => \&handle_cdata 
}; 
 
my $twig = new XML::Twig(twig_handlers => $handlers); 
$twig->parsefile("inifile.xml"); 
 
# Change to $twig->flush if you want edit-in-place semantics. Othersise, redirect to a file from the command line. 
$twig->set_pretty_print("indented"); 
$twig->print;

      <fld name="migmonJobNum"> 
        <properties> 
          <property name ="doc-long" value =" 
Number of parallel Migration Monitor jobs. " /> 
        </properties> 
        <strval><![CDATA[XML_NO_OF_PARALLEL_R3LOAD]]> 
        </strval>

<?xml version="1.0" encoding="UTF-8" standalone="no"?> 
<!DOCTYPE tables SYSTEM "keydb.dtd" > 
<!--  --> 
<tables> 
<tableset  srcid="generated"> 
  <table name="SAPINST_EXE" namespaces="STANDARD"> 
    <columns> 
      <column name="COMPONENT"> 
        <defaultproperties> 
          <property name ="ANCESTORS_DISPLAY_NAME" value ="SAP SCM 5.0 Support Release 3 &gt; SAP Systems &gt; Oracle &gt; Distributed System &gt; Based on AS ABAP &gt; " /> 
          <property name ="DISPLAY_NAME" value ="Global Host Preparation" /> 
          <property name ="INSTALLATION_START" value ="20080814125437" /> 
          <property name ="INSTALLATION_STOP" value ="20080814125553" /> 
          <property name ="PPMS_COMPONENT_NAME" value ="ind" /> 
          <property name ="PPMS_COMPONENT_RELEASE" value ="ind" /> 
          <property name ="PRODUCT_ID_FROM_CATALOG_FILE" value ="d0e23657" /> 
        </defaultproperties>

# search product id in keydb.xml and instert as comment in inifile.xml 
 
sub product_id { 
	my $keydb      = $_[0]; 
	my $product_id = ""; 
 
	open( FILE, '<', $keydb ) || die "Fehler beim Oeffnen zum Lesen: $!"; 
	while (<FILE>) { 
		chomp; 
		if ( $_ =~ /PRODUCT_ID_FROM_CATALOG_FILE/ ) { 
			$_ =~ s/.*value ="//g; 
			$_ =~ s/" \/>//g; 
			$product_id = $_; 
			print "produkt id :" . $product_id . "\n"; 
			print "inifile_out :" . $inifile_out . "\n"; 
			last; 
		} 
	} 
	close FILE; 
 
	open( INIFILE, ">>$inifile_out" ) || die "Can not write $inifile_out"; 
	print INIFILE "<!-- #" . $product_id . "# -->"; 
	close INIFILE; 
	return $product_id; 
 
}