#!/usr/local/bin/perl print "Content-type: text/html\n\n"; # Book List Search Form Constructor # By M. R. Eyestone # Last modified 2006-07-25 17:00:09 MDT open(FILEH, "searchdata.txt") || die("File not found"); my $filefields = ; close(FILEH); chomp($filefields); my @fields = split(/\t/, $filefields); print < Morris Reading Room Search Form

This catalog is updated regularly. If you see mistakes of any kind, please bring them to the attention of Robert Pasnau.


  • Searches every data field
  • Not case sensitive
  • No wildcards allowed
  • Leave blank to display all records
Sort by: ENDHTML my $i = 0; foreach my $field (@fields) { print "\t", ' ', "\n\t", ' '; if ($i < $#fields) { print '
'; } print "\n"; $i++; } print <
ENDHTML