#!/usr/local/bin/perl ############################################################################## # # File: link-finder.pl # Purpose: finds and prints all of the NAME, HREF and SRC statements # in an HTML document. # ############################################################################## while($file=shift(@ARGV)) { open(FILE,"<$file") || die, "Can't open file \"$file\": $!\n" ; #turn the file into a character string with no embedded \n's @document = ; $document = join("",@document) ; $document =~ s/\n//g ; # process all of the HREFs $temp = $document ; while ($temp =~ /