I try and I try. But I just can't get this damn program to work. I have all of the correct code. My server just won't run it. In the TMPL, all of the tags are written correctly and they are in the right spots. Could someone help me with this one?
#!/usr/bin/perl
#Loads the CGI Module
use CGI;
use HTML::Template;
# creates a new CGI object
my $page = new CGI;
$Create a new HTML:Template object
my $Temp = new HTML::Template;
# This will print a standard HTML header
print $page->header;
# Grab a named CGI parameter
my $value = $page->param("video");
#Open up the file that contains the review of the video
open(SEE, "../$value") or die "The File could not be opened.";
###The Shtick for the name in the Title Bar
#Split it up into individual words and
#put it into an array
my @tokens = split(/[\/_\.]/, $value);
#splice the first three elements from the array
splice(@tokens, 0, 3);
#Pop the end of the list off
pop(@tokens);
#Then put the remaining things together
$Title = join(' ', @tokens);
#Save the file to an array
@video_info = <SEE>;
#Now print out lots of HyperText Mark-up Language using
# HTML::Template
my $template = $Temp->new(filename => '../Template/my.tmpl');
$template->param(text => "@video_info");
$template->param(Title => "$Title");
print $template->output;
exit;
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.