#!/usr/local/bin/perl # PERL program that searches and replaces html backgrounds # Patrick Darden Oct 17 1995 for Dr. Hilton # The Blake Project # Revised for further page editing, 20 May 1997, N Hilton while($filename=shift(@ARGV)) { open(FILE, "$filename") || die "No such file.\n"; @file=; close FILE; $newfilename="$filename" . ".old"; system("mv $filename $newfilename"); # print "@file \n\n"; open(NewFile, ">$filename"); foreach $line (@file) { $line=~s/ / /gi; $line=~s/

*<\/h1>/ /gi; $line=~s/

<\/h3>/ /gi; $line=~s/> next stanza/html">
-->next stanza/gi; $line=~s/html *"/html"/gi; $line=~s/comment, <\/a>or/comment<\/a>, or/gi; print NewFile "$line"; } close NewFile }

*<\/h1>/ /gi; $line=~s/

*<\/h3>/ /gi; $line=~s/> *next stanza/html">-->next stanza/gi; $line=~s/html *"/html"/gi; $line=~s/comment, <\/a>or/comment<\/a>, or/gi; print NewFile "$line"; } close NewFile }

<\/h3>/ /gi; $line=~s/> next stanza/html">
-->next stanza/gi; $line=~s/html *"/html"/gi; $line=~s/comment, <\/a>or/comment<\/a>, or/gi; print NewFile "$line"; } close NewFile }