From: john.swilting on
how to read a whole a requete post to extract the arguments there
From: john.swilting on
john.swilting wrote:

> how to read a whole a requete post to extract the arguments there
On Wed, 14 Feb 2007 15:22:39 +0100, "john.swilting"
<john.swilting(a)wanadoo.fr> wrote:

>> I am afraid to find me with much
>> my $1 = $cgi->param('1');
>that will be a gas works

I beg your pardon?!?


Michele
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
..'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
From: john.swilting on
john.swilting wrote:

# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

# Split the name-value pairs
@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$FORM{$name} = $value;
}
From: Joe Smith on
john.swilting wrote:
> read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
> @pairs = split(/&/, $buffer);

No. Do not do that.

Use the CGI.pm module to perform that function.

-Joe