#!/usr/bin/perl $datafile = "data/dbparicipant.db"; read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); $searchstr = $FORM{'search'}; open(INF,$datafile); @mydata = ; close(INF); print "Content-type:text/html\n\n"; print "Search Results\n"; print "

Search Results

\n"; foreach $pair (@pairs) { print "^^*^^^"; print "pair --> $pair"; ($name, $value) = split(/=/, $pair); $FORM{$search} = $value; } print "^^*^^^"; @results = grep(/$searchstr/i,@mydata); if ($#results >= 0) { foreach $i (@results) { chomp($i); print "******"; ($stocknum,$name,$status,$price) = split(/\|/,$i); print "$search (#$stocknum) - \$$price
\n"; } } else { print "No results found.

\n"; } print "\n";