#!/usr/local/bin/perl -w -s # 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#

(LING #$line=~s#(\d\d\d)-(\d\d)-(\d\d\d\d)#$1$2$3#; #$line=~s#\[#\[#; #$line=~s#\]#\]#; #$line=~s#(\d\.\d\d)(\d+)#$1#; #$line=~s#(href=\")(.*)(fztext.html)#$1$3#; $line=~s#t(\d?\d\d\d)#t$1#; #$line=~s#(

)((\d*)\.(\d*))#qq$2#; #$line=~s###; #$line=~s###; #$line=~s###; #$line=~s###; #$line=~s#UGA.*##; #$line=~s###; #$line=~s###; #$line=~s###; print NewFile "$line"; } print NewFile ""; close NewFile # } }