271 Perl Catalog Assignment

Perl Catalog System

Code a web page using perl that let the user do the searches that you had coded in your Shell Catalog system. The user can enter a search word that searches one table, and then lists all the associated results in another table. The web page should also have a link to each of the three files so that I can easily check the results. This just uses the same files as your shell script catalog system so you do not need new files.

Delivery: Please submit a document with the web page link, and also submit the main perl script. If the link does not work, submit a zip (or tar) file of all the data files and the perl script.

Groups: This can be a group of up to 3 people. Everyone is responsible for knowing how every option is coded.

Details:

Write a perl script that you place in ~/public_html. Call it index.html OR make it a link on you index.html page. Your website will be "www.adelphi.edu/~" followed by your 6 character account number. (I do not know this six character account number if you do not tell me.)
The page will consist of:
- 1 input field, for the search (It should be one of the searches from your shell menu.)
- 3 html links, one to each of the data files. (and the data files must have the .txt extension)
- If search word 1 is entered, list the search word and then all the rows that were found in the target table (for example, list all movies in a town because the town was entered) The search must cross tables.

Intermediate Deliveries. This assignment involves many skills. You can hand in these intermediate programs and skill builders as your intermediate deliveries to the final Perl Catalog system. Doing these intermediate deliveries each week will extend your due date. Each of these pages has detailed instructions or learning reference material.

Step A: Using Perl as CGI to generate HTML:
Step B: Use perl to open a file and display its contents on the internet
Step C: Use perl to match a value from one file and use it to lookup values in another file using the skills below:
- arrays and while loops, matching regex, splitting file rows into column values
- navigate through 3 files using a search word

Sample Tables:

Movie Table
1,Mission: Impossible, Action
2,Fantastic Four, Action
3,The Gift, Drama
4,Vacation, Comedy
5,Ant-Man, Action
6,Minions, Family
7,Ricki and the Flash, Action
8,Trainwreck, Action
9,Pixels, Family
10,Southpaw, Action

Movie Theater Table
1,AMC Loews Stony Brook,(888)AMC-4FUN, 2196 Nesconset Highway, Stony Brook
2,Bellmore Movies, (516)783-7200,222 Petit Avenue, Bellmore
3.Bellmore Playhouse, (516)783-5440, 525 Bedford Avenue, Bellmore
4,Bow Tie Franklin Square Cinemas, (516)775-3257, 989 Hempstead Turnpike, Franklin Square

Association Table (theater key followed by movie key)
1,1
1,2
1,3
2,1
2,4
2,9
2,10
3,1
3,3
4,1
4,3

Note: 1,2 means that Bellmore Movies is playing Fantastic Four

Reminder on how to use CGI to interact with a form: And remember, when reading a file, use the full path name starting with \home.

print "content-type:text/html; charset=utf-8\n\n";
use strict;
use CGI qw/:standard/;
my $search = param("input")||"";
print qq(<!DOCTYPE html><head></head><body>
<form method="post" action="testinput4.pl">
<label for="input">What is the search word:
</label><input type="text" name="input" value="" />
<input type="submit" value="Post Input" /></form>);
if ($search) {
print qq(<br />the search word is $search<br />);
yourpage();
}
print qq(</body></html>);

sub yourpage {
print "do whatever you want in your page here <br />";
print "and you can use $search <br />";
print "\n does nothing ";
print "and you need to but br inside angle brackets to get the tne next line <br />";
}