#!/usr/local/bin/perl my $in; if ($ENV{'REQUEST_METHOD'} eq "GET") { $in = $ENV{'QUERY_STRING'}; } else { $in = ; } $in =~ s/\+/ /g; $in =~ s/%(..)/pack("c",hex($1))/ge; my %movie = split (/=/, $in); open (DATA, "/home/export/users/cis14/cheu0576631/public_html/cgi-bin/MovieList.txt"); my @data = ; close (DATA); print <

Results

END for ($i = 0; $i <= $#data; $i++) { if ($data[$i] =~ /-- $movie{'title'} --/i) { print <$data[$i + 1]
$data[$i + 2]
END last; } elsif ($i == $#data) { print "Sorry! I haven't reviewed that one yet!"; } } print <

END