#! /usr/local/bin/perl # madlib.pl # By Brian Exelbierd (bex@ncsu.edu) 1-1-95 # This program accepts www form input and produces the following madlib # One find _day_, _name1_ was reading _newsgroup_, and noticed a post where # _name2_ asked for help making their _noun_ _verb_. # # This program uses Steve Brenner's cgi-lib.pl library to handle the input # @INC=("~yngve/.public/cgi/"); # require "cgi-lib.pl"; &ReadParse; print &PrintHeader; #print "\n"; #print "\n"; #print "\n"; #print "A madlib\n"; #print "\n"; #print "\n"; #print "\n"; print "

Here it is:

\n"; print "\n"; #print "One fine ",$in{'day'},", ",$in{'name1'}," was reading\n"; #print $in{'newsgroup'}," and noticed a post where ",$in{'name2'}," asked for\n"; #print "help making their ",$in{'noun'}," ",$in{'verb'},"

\n"; #open(MAD,">>madlib.txt"); #print MAD $in{'day'}, ", ", $in{'name1'}, ", ", $in{'name2'}; #close(MAD); #print "\n"; #print "\n"; #print "\n";