#!/usr/bin/perl5
#grep -l 'eskimo.com' *html
# | xargs
# perl -ani.bak -e 's/www\.eskimo\.com\/all\/all.html\#/www\.unofficialbmw\.com\/all\//; print;'
##open(DIR, "grep -l 'eskimo.com' */*html |");
#open(DIR, "ls e*/e*.html |");
#open(DIR, "ls e*/index.html |");
open(DIR, "ls e*/sub*.html |");
while(
) {
chomp $_;
$filename = $_;
print "processing $filename \n";
system("cp $filename $filename.bak");
open(NEW_FILE, "> $filename.new");
open(CUR_FILE, "< $filename");
while() {
if($_ =~ /www\.eskimo\.com\/\\/bmw\//) {
$_ =~ s/www\.eskimo\.com\/\\/bmw/www\.unofficialbmw\.com/;
}
print NEW_FILE $_;
}
close CUR_FILE;
close NEW_FILE;
system("mv $filename.new $filename");
}