#!/usr/bin/perl -w
#Jeanenne Campbell
#Chris Demartin
#Link to website: /home/~je21226/public_html/perlproject/partA/final.pl/
print "content-type:text/html; charset=utf-8\n\n";
print qq ();
print qq ();
print qq ();
print qq ( Perl website );
print qq ();
print qq ();
print qq ( months);
print qq (
);
print qq ( Associations);
print qq (
);
print qq ( Anime Conventions);
print qq ();
use strict;
use warnings;
use CGI qw /:standard /;
my $searchword = param ("searchword") || "";
if ($searchword)
{
print qq (
You searched for: $searchword
);
print qq (
);
my $file = "/home/pe16132/public_html/csc271/note/scripts/perl/jeanette/months.txt";
my $fd = open (my $fh, '<', $file);
my @keylistarray = ();
while (my $line = <$fh>)
{
chomp $line;
my $key = "";
my $month = "";
if ($line =~ /.*${searchword}.*/)
{
($key, $month) = split (/\./, $line);
push @keylistarray, $key;
}
}
print "the months found have keys of @keylistarray";
close ($fh);
my $splitkey = "";
my @linkkeylist = ();
my $file2 = "/home/pe16132/public_html/csc271/note/scripts/perl/jeanette/link.txt";
my $linkkey = "";
my $element = "";
foreach $element (@keylistarray)
{
my $fileopen = open (my $fh2, '<', $file2);
while (my $line2 = <$fh2>)
{
chomp $line2;
if ($line2 =~ /^${element},/)
{
($linkkey, $splitkey) = split (/\,/, $line2);
push @linkkeylist, $splitkey;
}
}
close ($fh2);
}
print "the linked keys are @linkkeylist";
my $splitcons = "";
my @conkeylist = ();
my $file3 = "/home/pe16132/public_html/csc271/note/scripts/perl/jeanette/cons.txt";
my $cons = "";
my $elementcon = "";
my $found = 0;
foreach $elementcon ( @linkkeylist)
{
print "dealing with elementcon $elementcon";
my $confileopen = open (my $fh3, '<', $file3);
while (my $conline = <$fh3>)
{
print "conline is $conline";
chomp $conline;
($cons, $splitcons) = split (/\./, $conline);
if ($splitcons =~ /^${elementcon}/);
{
print " matched key to value in file" ;
print " cons is $cons and split is $splitcons";
if($found == 0)
{
print qq(The stores that have that game in stock are: );
print qq(
);
$found = 1;
}
print qq(
);
print qq(Cons: $cons);
print qq(
);
}
}
close ($fh3);
}
if($found == 0)
{
print qq(Please try again.);
print qq(
);
}
print qq(
);
}
else
{
print qq (
Please enter a search word.
);
}
print qq ();
print qq ();