#!/usr/local/bin/perl # PERL program that searches and replaces html backgrounds # Patrick Darden Oct 17 1995 for Dr. Hilton # The Blake Project # while($filename=shift(@ARGV)) { open(FILE, "$filename") || die "No such file.\n"; @file=; close FILE; #if ($filename =~ m/(\d(\d)?)\.html/) # $n=$1+1; # { $newfilename="$filename" . ".old"; system("mv $filename $newfilename"); # print "@file \n\n"; open(NewFile, ">$filename"); foreach $line (@file) { #$line=~s#ANNOTATIONS# stanza annotations#; #$line=~s## #; #$line=~s## #; #$line=~s\"\.\.\/blaketx1#\"home.html#; $line=~s#(HREF=\")(\d(\d)?\.htm)#$1Letters\/$2#; #$line=~s#a>\)#a>#; #$line=~s###; print NewFile "$line"; } #print NewFile ""; close NewFile # } }