Always, always, always
#!/usr/bin/perl -w
use strict;
Then USEFUL error messages are output
I think the following modified code may help
#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
read (STDIN,my($temp), $ENV{'CONTENT_LENGTH'});
my (@pairs) =split(/&/,$temp);
my($item) = "";
my %fields;
foreach $item(@pairs) {
my($key,$content) =split (/=/, $item, 2);
$content=~tr/+/ /;
$content=~s/%(..)/pack("c",hex($1))/ge;
$fields{$key}=$content;
}
print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<HEAD>\n";
print "<TITLE>This is a test of the stuffy perl network</TITLE>\n";
print "</HEAD>\n";
print "<BODY>\n";
print "$fields{tool}\n";
print "$fields{month}\n";
print "$fields{date}, $fields{month}\n";
print "</BODY>\n</HTML>";
Note the declaration of my %fields before the loop
Hope this helps
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|