use strict;
use warnings;
use Cwd;
use File::Find;
my $search_pattern='em:maxVersion';
my $file_pattern ='install\.rdf$';
find(sub {
my $file = $File::Find::name;
my $name = $_;
$file =~ s,/,\\,g;
return unless -f $file;
return unless $file =~ /$file_pattern/;
print "found $file\n";
open F, $file or print "couldn't open $file\n" && return;
my @buff = <F>;
close F;
open W, '>' , $file or print "couldn't open $file\n" && return;
foreach (@buff) {
if (m/($search_pattern)/o) {
print "found $file $_\n";
print W "<em:maxVersion>*</em:maxVersion>\n"
} else {
print W $_;
}
}
close W;
}, cwd);