Ok, a few questions:
What does print <<"END_HTML"; do as apposed to <<EndOfHTML;
What does the qw/:standard/; do?
What is the content variable doing?
Other than that I think I get it.
> --- Kyle Babich <[EMAIL PROTECTED]> wrote:
> > I'm a beginner. The following is what I wrote:
> >
> > #!/usr/bin/perl
> > print "Content-type:text/html\n\n";
> >
> > @days = ("Sunday","Monday","Tuesday","Wednesday","Thursday",
> > "Friday","Saturday");
> > @months = ("January","February","March","April","May","June",
> > "July","August","September","October","November",
> > "December");
> >
> > ($sec,$min,$hr,$mday,$mon,$year,$wday,$yday,$isdst) =
> > localtime(time);
> > $year = $year + 1900;
> >
> > if ($body eq "yahoo") {
> >
> > print "<a href=\"http://www.yahoo.com/\";>Yahoo</a>\n";
> >
> > } elsif ($body eq "date") {
> >
> > print "$days[$wday] $mday $months[$mon] $year\n";
> >
> > }
>
> Kyle,
>
> In addition to the other comments, you also have a typo in your
header:
>
> print "Content-type:text/html\n\n";
>
> There should be a space between the colon and the word "text". Most
browsers will error correct
> for this, but there are no guarantees. Here's one way to write this:
>
> #!/usr/bin/perl -wT
> use strict;
> use CGI qw/:standard/;
>
> print header;
>
> my $date = localtime; # because the left side is a scalar, localtime
> # is in scalar context
> # see perldoc -f localtime
> my $body = param('body');
>
> my $content = '"body" didn't match';
>
> if ($body eq "yahoo") {
> $content = qq{<a href="http://www.yahoo.com/";>Yahoo</a>\n};
> } elsif ($body eq "date") {
> $content = $date;
> }
>
> print <<"END_HTML";
> <html>
> <head><title>Some CGI test</title></head>
> <body>
> <h1>CGI Test</h1>
> <p>$content</p>
> </body>
> </html>
> END_HTML
>
> I realize that this is a lot of stuff to absorb, but rather than my
try to pack it into an email,
> check out my CGI course at
http://www.easytstreet.com/~ovid/cgi_course/
>
> Cheers,
> Curtis "Ovid" Poe
>
> =====
> "Ovid" on http://www.perlmonks.org/
> Someone asked me how to count to 10 in Perl:
> push@A,$_ for reverse q.e...q.n.;for(@A){$_=unpack
(q|c|,$_);@a=split//;
> shift@a;shift@a if $a[$[]eq$[;$_=join q||,@a};print $_,$/for reverse
@A
>
> __________________________________________________
> Do You Yahoo!?
> Yahoo! - Official partner of 2002 FIFA World Cup
> http://fifaworldcup.yahoo.com
>
>
--
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
