windows-server-2003/mergedcomponents/setupinfs/hive32.pl

#
# process arguments
#
for (@ARGV) {
    if (/^-input=(.*)$/i)     { $in_fname = $1;  next; }
    if (/^-output=(.*)$/i)    { $out_fname = $1;   next; }
}

open INFILE, $in_fname  or  die "Could not open 1: $in_fname\n";
open OUTFILE, ">$out_fname"  or  die "Could not open: $out_fname\n";

@FileLines = <INFILE>;

%Assoc = ( 'HKLM,"SOFTWARE', 'HKLM,"SOFTWARE\Wow6432Node',
           'HKCR,"', 'HKLM,"SOFTWARE\Classes\Wow6432Node\\' );

foreach $Line ( @FileLines ) {
   foreach $Pattern ( keys( %Assoc ) ) {
      @foo = grep( /Wow6432Node/, $Line);
      if (@foo == 0) {
         $Line =~ s/^$Pattern/$Assoc{ $Pattern }/i;
	 $Line =~ s/SOFTWARE\Q\Wow6432Node\Classes/SOFTWARE\\\Classes\\\Wow6432Node/i;
      } else {
#         $Line =~ s/^$Pattern/$Assoc{ $Pattern }/i;
      }
   }

   print OUTFILE $Line ;
}

close INFILE;
close OUTFILE;