sub mySub
{
if( $_ =~ /\.html)
{
my $name = $File::Find::name;
open ( F, $name ) || warn "Can\'t open File $name: $!\n";
while($line = )
{
for $hit ($line =~ /matchdata/gi)
{
push @files, $name;
}
}
close F;
}
}
find( \&mySub, $dir );
foreach (@files)
{
open(LDATA, "$_") || warn "File does not open: $!\n";
@data = ();
close(LDATA);
open(LDATA, ">$_") || warn "File Write problem $_: $!\n";
foreach (@data)
{
s/OLD/NEW/gi;
print LDATA $_;
}
close(LDATA);
}