Replace 1

[vincebrown]

Can someone please show me how to make this script replace '<PreprocessorFlags/>' with '<PreprocessorFlags>U_CPPUNWIND</PreprocessorFlags>'. Thanks.

open FILE, 'C:/cpptest\C++TestFiles\Projects\Hello\Product\ProjectConfig.pcfg';
foreach(<FILE>){
push (@file,$_);
}
close FILE;
unlink 'C:/cpptest\C++TestFiles\Projects\Hello\Product\ProjectConfig.pcfg';
open FILE, '>C:/cpptest\C++TestFiles\Projects\Hello\Product\ProjectConfig.pcfg';
foreach (@file){
if ($_ =~ /(.*)(<PreprocessorFlags\/\>)(.*)/){
print FILE " $1\t$2/U_CPPUNWIND</PreprocessorFlags>$3\n";
}else{
print FILE $_;
}
}
close FILE;

 

[tchatzi]

my $file = 'C:\cpptest\C++TestFiles\Projects\Hello\Product\ProjectConfig.pcfg';
open FILE, "$file";
foreach(<FILE>){
    push (@file,$_);
}
close FILE;
unlink $file;
open FILE, ">$file";
    foreach (@file){
        if ($_ =~ /<(PreprocessorFlags)\/>/){
            print FILE "<$1>U_CPPUNWIND</$1>\n";
        }else{
            print FILE $_;
        }        
    }    
close FILE;

``The wise man doesn't give the right answers,
he poses the right questions.''
TIMTOWTDI

 

[vincebrown]

Thanks, so much. You are a perl legend!

 

[KevinADC]

if it's an important file I'd make a backup copy first before deleting the original file. Then do the edits like perluserpengo has shown you. You can use the File::Copy module to make a backup copy of the original file. If the files not that important then never mind.

 

[vincebrown]

Thanks KevinADC.