Mailing-List: contact embperl-help@perl.apache.org; run by ezmlm
Precedence: bulk
Message-ID: <55DB4E07.2020406@thefreecat.org>
Date: Mon, 24 Aug 2015 19:01:59 +0200
From: Jean-Christophe Boggio <embperl@thefreecat.org>
User-Agent: Mozilla/5.0 (X11; Linux x86_64;
 rv:31.0) Gecko/20100101 Thunderbird/31.8.0
MIME-Version: 1.0
To: "embperl@perl.apache.org" <embperl@perl.apache.org>
Subject: Question concerning REST
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 7bit


Hello,

I am trying to implement a simple REST/JSON server in embedded perl but 
I don't understand how I can retrieve the data sent to me.

I test with this command :

curl -i -X GET -d '{"name":"john"}' http://omico.miaou/rest/notifent.html


And the following code shows nothing (apart from the %ENV stuff) :

[-
use Data::Dumper;

$req = shift;

while ( ($k,$v) = each(%fdat) ) {
         warn "$0:FDAT $k : ".Dumper($v);
}

while ( ($k,$v) = each(%udat) ) {
         warn "$0:UDAT: $k : ".Dumper($v);
}

while ( ($k,$v) = each(%ENV) ) {
         warn "$0:ENV: $k : ".Dumper($v);
}

foreach $k (@param) {
         warn "$0:param: $k ";
}

-]

Thanks for your help,

JC

---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org