Hello monks,
I have recently rearranged the code in a fairly large script I have been working on for some time. This change was neccessary to solve some syntax errors but since this change I have been getting this error. Following is a sample of the overall script (at least what I think is relavant).
#!C:\Perl\bin\perl.exe use strict; use warnings; sub readPostInput() { my (%searchField, $buffer, $pair, @pairs); if ($ENV{'REQUEST_METHOD'} eq 'POST') { read (STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach $pair (@pairs) { my ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/e +g; $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg +; $searchField{ $name } = $value; } } } my %postInputs = readPostInput(); print "Content-type: text/html\n\n"; print "Complete :: $ENV{'REQUEST_METHOD'}";
It seems that environment variables such as REQUEST_METHOD, CONTENT_LENGTH, and REMOTE_ADDR are not being defined. I have tried running this from IE and from a command line. This script outputs the following:
Use of uninitialized value in string eq at test2.pl line 10. Odd number of elements in hash assignment at test2.pl line 26. Content-type: text/html Use of uninitialized value in concatenation (.) or string at test2.pl +line 29. Complete ::
Please, help, and thank you in advance.
In reply to $ENV{'REQUEST_METHOD'} undefined? by Lamont85
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |