#!/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"); }