CGI获取非表单方式post数据的问题

hotsnow

如果是表单的话，parms就可以很方便的获取到post的数据。如果post的数据不是一个表单（例如只是一个字符串）那怎么获取呢？
例如我用curl提交一串数据：

1. curl -d 'test' http://127.0.0.1:3000/test

复制代码

网上有这样的做法：

1.     my $data;
   
2.     read(STDIN,$data,$ENV{'CONTENT_LENGTH'});
   
3.     $data =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   
4.     $data =~ s/~!/ ~!/g;
   
5.     return $data,"\n";

复制代码

但我测试一下，我curl提交的时候会卡住：

1. # wget -O - --post-data='test' http://127.0.0.1:3000/test
   
2. --09:59:40--  http://127.0.0.1:3000/test
   
3.            => `-'
   
4. Connecting to 127.0.0.1:3000... connected.
   
5. HTTP request sent, awaiting response...

复制代码

请问这个如何解决？

moxnet

使用cgi, 取$query->param("POSTDATA")中的内容看看.

hotsnow

我没有用CGI模块，不过应该是不行的。如果用params的话感觉就是一个表单了。

hotsnow

没人遇到这个问题吗？

enbin09

read(STDIN,$data,$ENV{'CONTENT_LENGTH'});

这种方式是正解，等待响应是你没有http输出返回

hotsnow

回复 5# enbin09


    我后面是有return的，但是我看到data的内容是空的，感觉是捕获到。

enbin09

use CGI;

$t_len=$ENV{CONTENT_LENGTH};
read(STDIN, $recv_str,$t_len);
$content_length=length($recv_str);
$q = new CGI;         
print $q->header(-type=>'text/xml;charset:gb2312',-Content_length=>$content_length);
print $recv_str;

hotsnow

回复 7# enbin09


    谢谢回答，不过我这里没有用CGI模块，我用Dancer，肯能是数据已经被Dancer模块捕获过了，所以我在后端取不出来。