Randal, Brian, Stephen,
Thanks a bunch for your help with my parsing script.  I appreciate it very
much.  Here’s another problem:
Why doesn’t this do what I think it should do? (I just get  “Internal server
error”)


#!c:/perl/bin/perl -w

use strict;
use CGI qw(param);

my ($who,$quote_type,$key);
$who = $a->param('firstname')."".$a->param('lastname');
$quote_type = $b->param('submitButtoncattleman');
my ($sec,$min,$hours,$day,$month,$year) = (localtime)[0,1,2,3,4,5];

print "Content-type: text/html\n\n";
printf("At %02d:%02d:%02d, on %02d/%02d/%04d/, <BR>
            <B>$who</B> submitted this request for a
<U><B>$quote_type</B></U> quote",
            $hour,$min,$sec,$month+1,$day,$year+1900);

foreach $key (sort param()) {
            print header;
            print "<P><B>$key</B>: <U><B>".param($key)."</B></U>"
}


However, when I comment out everything but:

use CGI qw(param);
foreach $key (sort param()) {
            print header;
            print "<P><B>$key</B>: <U><B>".param($key)."</B></U>"
}

I don’t get anything; just a blank page.
CGI.pm is in /perl/lib.  Perl.exe is in perl/bin. Could this be
contributing?
Also, just wanted to know what *.param($key).* does as well as *."".*
I know that *..* is the range operator, so is *."".* simlar? Couldn’t find
anything on it
in the Llama book.

Thanks,
Nathan

Reply via email to