[code=perl]
#!/usr/bin/perl
# Designed by 
# Version xx.xx.xx
#
# Function: 
# Input/Parameter: 
# Output: 
# USAGE: 

#------------------------------------------------------------------------------
# * Usings
use warnings;
use strict;
use Cwd;
# *-----------------------------------------------------------------------------

# ------------------------------------------------------------------------------
# * Variables
my $str_search_pattern = "MY_OLD_CONST";
my $str_replacement_expression = "MY_NEW_CONST";
my $logfileout='C:\temp\sysconst.log'; 
my $path;
my $path_tbc;
my $filein;
my $fileout;
#my@arr_all_files=Sub_Search_For_Files_REC(Sub_Get_Root_Directory(),1,'.xml');
my @arr_all_files=Sub_Search_For_Files_REC(Sub_Get_Root_Directory(),1);
my @arr_files_tbc=();
my $st_files_tbc;
my %hash_alloc_pp_key=('0','0','1','100','2','200','3','300','4','400','5','500');

foreach $path (@arr_all_files)
{
	$st_files_tbc=0;
	$filein =$path;
	open(my $FHIN ,  '<', $filein)  or die "ERROR open $filein ($!)\n";
	
	while(my $line=<$FHIN>)
	{
		if($line=~/(^\s*#\s*(elif|if)\s*[\(\s]+\s*[!]*\(*\s*)${str_search_pattern}\s*[!=]+=\s*(\d)(.*\))/)
		  {
		  	$st_files_tbc=1;
		  }
	  elsif($line=~/(^\s*#\s*ifndef\s*[\(\s]*\s*\(*\s*)${str_search_pattern}(.*)/)
	  {
	  	$st_files_tbc=2;
	  }
	  elsif($line=~/(^\s*#\s*define\s*[\(\s]+\s*[!]*\(*\s*)${str_search_pattern}\s*(\d)(.*)/)
	  {
	   	$st_files_tbc=4;
	  }
	  elsif($line=~/(^\s*#\s*error.*)${str_search_pattern}(\.*)/)
	  {
	   	$st_files_tbc=8;
	  }
  	elsif($line=~/(^\s*\/\*\s*.*)${str_search_pattern}(.*)\*\//)
    {
     	$st_files_tbc=16;
    }   
  	elsif($line =~/(\.*<ONE-XML-TAG>\s*)${str_search_pattern}(\s*<\/ONE-XML-TAG>\s*==\s*)(\d)/)
    {
     	$st_files_tbc=32;
   	}
    elsif($line =~/(\.*<Secound-XML-TAG>\s*)${str_search_pattern}(\s*<\/Secound-XML-TAG>)/)
    {
    	$st_files_tbc=64;
    }
    elsif($line =~/(^\s*<\s*VT\s*>\s*)${str_search_pattern}(\s*<\s*\/VT\s*>)/)
    {
    	$st_files_tbc=128;
    }
    elsif($line  =~/(\s*<ONE-XML-TAG>\s*)${str_search_pattern}(\s*<\/ONE-XML-TAG>)/)
    {
    	$st_files_tbc=255;
    }      
	}
	if($st_files_tbc>0)
	{
		push (@arr_files_tbc,$path);
	}
		close($FHIN); 
}

foreach $path_tbc (@arr_files_tbc) {

$filein =$path_tbc;
$fileout=$path_tbc.".keep";

open(my $FHIN ,  '<', $filein)  or die "ERROR open $filein ($!)\n";
open(my $FHOUT,  '>', $fileout) or die "ERROR open $fileout ($!)\n";
open(my $FHLOG,  '>', $logfileout) or die "ERROR open $logfileout ($!)\n";

while(my $line=<$FHIN>)
{
  # suchen und ersetzen vom PP-Schalter und dessen Wert in Dateien!
    
    
  if($line=~/(^\s*#\s*(elif|if)\s*[\(\s]+\s*[!]*\(*\s*)${str_search_pattern}\s*[!=]+=\s*(\d)(.*\))/)
  { 
  	$line=~s/(^\s*#\s*(elif|if)\s*[\(\s]+\s*[!]*\(*\s*)${str_search_pattern}\s*([!=]+=)\s*(\d)(.*\))/$1${str_replacement_expression}$3$hash_alloc_pp_key{$4}$5/;
  	  	  	
  	#if($line=~/(\s*(&||)\s*[\(\s]+\s*[!]*\(*\s*)${str_search_pattern}\s*([!=]+=)\s*(\d)(.*\))/)
  	#{  		
  		#$line=~s/(\s*(&||)\s*[\(\s]+\s*[!]*\(*\s*)${str_search_pattern}\s*([!=]+=)\s*(\d)(.*\))/$1${str_replacement_expression}$3$hash_alloc_pp_key{$4}$5/g;  					
  	#}
  	
  	while($line=~/(\s*(&||)\s*[\(\s]+\s*[!]*\(*\s*)${str_search_pattern}\s*([!=]+=)\s*(\d)(.*\))/)
  	{
  		$line=~s/(\s*(&||)\s*[\(\s]+\s*[!]*\(*\s*)${str_search_pattern}\s*([!=]+=)\s*(\d)(.*\))/$1${str_replacement_expression}$3$hash_alloc_pp_key{$4}$5/g;
  	}  	
  	print $FHLOG "Line number| \t" .  "$." . "|\t"  . "Path | ". "\t" . "$path_tbc " . "| \t" . "New Expression |" . "\t". "$line" . "\n" ;  	  	  	
  }  
  elsif($line=~/(^\s*#\s*ifndef\s*[\(\s]*\s*\(*\s*)${str_search_pattern}(.*)/)
  { 
  	$line=~s/(^\s*#\s*ifndef\s*[\(\s]*\s*\(*\s*)${str_search_pattern}(.*)/$1${str_replacement_expression}$2/;
  	print $FHLOG "Line number| \t" .  "$." . "|\t"  . "Path | ". "\t" . "$path_tbc " . "| \t" . "New Expression |" . "\t". "$line" . "\n";	
  }
  elsif($line=~/(^\s*#\s*define\s*[\(\s]+\s*[!]*\(*\s*)${str_search_pattern}\s*(\d)(.*)/)
  {
  	$line=~s/(^\s*#\s*define\s*[\(\s]+\s*[!]*\(*\s*)${str_search_pattern}\s*(\d)(.*)/$1${str_replacement_expression}$hash_alloc_pp_key{$2}$3/;
  	print $FHLOG "Line number| \t" .  "$." . "|\t"  . "Path | ". "\t" . "$path_tbc " . "| \t" . "New Expression |" . "\t". "$line" . "\n";  	
  }  
  elsif($line=~/(^\s*#\s*error.*)${str_search_pattern}(\.*)/)
  { 
  	$line=~s/(^\s*#\s*error.*)${str_search_pattern}(\.*)/$1${str_replacement_expression}$2/;
  	print $FHLOG "Line number| \t" .  "$." . "|\t"  . "Path | ". "\t" . "$path_tbc " . "| \t" . "New Expression |" . "\t". "$line" . "\n";
  }
  elsif($line=~/(^\s*\/\*\s*.*)${str_search_pattern}(.*)\*\//)
  {
  	$line=~s/(^\s*\/\*\s*.*)${str_search_pattern}(.*\*\/)/$1${str_replacement_expression}$2/;
  }   
  elsif($line =~/(\.*<ONE-XML-TAG>\s*)${str_search_pattern}(\s*<\/ONE-XML-TAG>\s*==\s*)(\d)/)
  {
  	$line  =~s/(\.*<ONE-XML-TAG>\s*)${str_search_pattern}(\s*<\/ONE-XML-TAG>\s*==\s*)(\d)/$1${str_replacement_expression}$2$hash_alloc_pp_key{$3}/g	;  	
  	print $FHLOG "Line number| \t" .  "$." . "|\t"  . "Path | ". "\t" . "$path_tbc " . "| \t" . "New Expression |" . "\t". "$line" . "\n";	
 	} 	
  elsif($line =~/(\.*<Secound-XML-TAG>\s*)${str_search_pattern}(\s*<\/Secound-XML-TAG>)/)
  {
  	$line  =~s/(\.*<Secound-XML-TAG>\s*)${str_search_pattern}(\s*<\/Secound-XML-TAG>)/$1${str_replacement_expression}$2/g;	
  	print $FHLOG "Line number| \t" .  "$." . "|\t"  . "Path | ". "\t" . "$path_tbc " . "| \t" . "New Expression |" . "\t". "$line" . "\n";
  }  
  elsif($line =~/(^\s*<\s*VT\s*>\s*)${str_search_pattern}(\s*<\s*\/VT\s*>)/)
  {
  	$line  =~s/(^\s*<\s*VT\s*>\s*)${str_search_pattern}(\s*<\s*\/VT\s*>)/$1${str_replacement_expression}$2/g;
  	print $FHLOG "Line number| \t" .  "$." . "|\t"  . "Path | ". "\t" . "$path_tbc " . "| \t" . "New Expression |" . "\t". "$line" . "\n";
  }  
  elsif($line  =~/(\s*<ONE-XML-TAG>\s*)${str_search_pattern}(\s*<\/ONE-XML-TAG>)/)
  {
  	$line  =~s/(\s*<ONE-XML-TAG>\s*)${str_search_pattern}(\s*<\/ONE-XML-TAG>)/$1${str_replacement_expression}$2/;
  	print $FHLOG "Line number| \t" .  "$." . "|\t"  . "Path | ". "\t" . "$path_tbc " . "| \t" . "New Expression |" . "\t". "$line" . "\n";
  }
   print $FHOUT $line; 
      
}
close($FHOUT);
close($FHIN);
close($FHLOG); 
}

print join("\n",@arr_files_tbc);
#
# ***************************************************************************************************
# * Sub_Get_Root_Directory
# *
# * Function
# *
# *
# * \return      root_directory
# ***************************************************************************************************
# */
sub Sub_Get_Root_Directory
{
	 # startverzeichnis wir ueber kommandozeile vom Anwender festgelegt.
		my $root_directory = $ARGV[0]; 
		
		my $cmd_input ;		
	
	if(@ARGV == 0)
	{
		# das aktuelle Verzeichnis ermitteln.
		$root_directory=cwd;
		
	  print "\n################################################################################\n";
	  print "Start directorie is:\t $root_directory\n";
	  print "Do you want to continue?\nPress any key for continue or Press q for Quit:";
	  print "\n################################################################################\n";
	  
	  chomp ($cmd_input = <STDIN>);
	  
	  if($cmd_input eq "q")
	  {
	  	print "Script was aborted by user!\n";
	  	exit;
	  }   
	}	
	return $root_directory;
	
}
# ***************************************************************************************************
# * Sub_Search_For_Files_REC
# *
# * Function
# * Startdir ohne abschließendes /, aktuelles Verzeichnis = .
# * Unterverzeichnisse durchsuchen? 1: ja, 0: nein
# * Dateitypen in form .c.h.xml , also direkt hintereinander, aber nur wenn nötig
# * ansonsten wird alles gezeigt
# * \return      Liste der gefundenen Dateien        - @arr_all_files
# ***************************************************************************************************

sub Sub_Search_For_Files_REC
{
	my $startdir=shift;
	my $include_subdirs=shift;
	my $strFileExtension=shift;
	my %strFileExtension=();
	$strFileExtension=~ s/\s//g;
	my @strFileExtension=split('\.',$strFileExtension);
	shift @strFileExtension;
	my @arr_all_files=();
	
	$strFileExtension=0;
	$startdir=~ s/\/$//;
	
	if (@strFileExtension != 0)
	{
		$strFileExtension=1; # wenn Endungen angegeben
		foreach (@strFileExtension){$strFileExtension{$_}=1;}
	}
	@strFileExtension=();
	
	
	push (my @all_directories,$startdir);
	
	foreach my $akdir(@all_directories)
	{
		local *in;
		opendir (in,$akdir);
		my @all=readdir(in);
		closedir in;
		
		foreach my $akdatei (@all)
		{
			next if ($akdatei eq '..' || $akdatei eq '.');
			if (-d "$akdir/$akdatei")
			{
				if ($include_subdirs == 1)
				{
					push (@all_directories,"$akdir/$akdatei");
					next;
				}
			}
			else
			{
				if ($strFileExtension==0)
				{
					push (@arr_all_files,"$akdir/$akdatei");
				}
				else
				{
					my @endung=split('\.',$akdatei);
					my $endung=$endung[-1];
					if ($strFileExtension{$endung} == 1)
					{
						push (@arr_all_files,"$akdir/$akdatei");
					}
				}
			}
		}
	}
	return @arr_all_files;
}

[code=perl]