#!/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#View.*#text typographically#; #$line=~s#poem# #; #$line=~s#ZOOM out to the#whole#; #$line=~s##"; close NewFile } }