Ignoring the HERE doc, try this:
#!/usr/bin/perl
use strict;
use CGI;
my $page = new CGI;
my $value = $page->param("Comic");
##########declare the names of the files for the loop
my @Comm = qw(
Images/Le_Comic.jpg Images/Le_Comic2.jpg Images/Le_Comic3.jpg
Images/Le_Comic4.jpg Images/Le_Comic5.jpg Images/Le_Comic6.jpg
Images/Le_Comic7.jpg Images/Le_Comic8.jpg Images/Le_Comic9.jpg
Images/Le_Comic10.jpg Images/Le_Comic11.jpg Images/Le_Comic12.jpg
Images/Thanksgiving_Comic.jpg
);
#Open up the comments file
my $file = '../comment.txt';
open FILE, "< $file" or die "Cannot open $file for reading";
my @Comment = <FILE>;
close(FILE);
my ( $Como, $Number);
#do a "for" loop to make it choose the quote
for my $i ( 0 .. $#Comment ) {
if ($value eq $Comm[$i]) {
$Como = $Comment[$i];
$Number = $i + 1;
last;
}
}
Your biggest problem was this line:
my ('$i','$Como','$Number');
Don't declare variables by putting them in single quotes. This may not fix your problem, but at least the program should run.
Cheers,
Ovid
Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.