$env{'content_length'}

I'm trying to write a forum-like simple cgi to get feedback from customers who visited my site.

I had this code:

Code:

---

if ($request_method eq "GET") {
  $query_string = $ENV{'QUERY_STRING'};
} elsif ($request_method eq "POST") {
  read (STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
}

---

to handle both "POST" or "GET" method.

But when it runs, "GET" works; but "POST" doesn't.

After a while, I realised it was $ENV{'CONTENT_LENGTH'} that created the error. How come? I thought that was standard stuff?

An update on the condition, $ENV{'CONTENT_LENGTH'} does return 75 as the value, but it doesn't compute for STDIN....

Don't reinvent the wheel. Use a module, like CGI::Minimal.

Hi I am not trying to convince you to change the approach but I thought CGI has always been a performance problem when load gets heavy ? I still thought Mod_Perl will be the de-facto solution for Perl web apps nowadays but it seems I'm wrong. I was still exploring Mod_Perl and HTML::Mason. Hmm... I think I need some exploration on Perl CGI modules too.