- 论坛徽章:
- 0
|
本帖最后由 skylway 于 2013-12-29 00:45 编辑
急急！ 这个问题困扰我了几天，百思不得其解！求高手相助》》》
perl cgi 模块中，我在apache上，测试下面代码可以正常显示提交的post数据，但是在nginx+fcgi 上显示不出post数据。如下面代码：
#!/usr/bin/perl
use CGI;
#use Encode qw(encode decode resolve_alias);
$query = new CGI;
print $query->header("text/html; charset=UTF-8");
print $query->start_html("The Object-Oriented CGI and Forms");
print "<H2>Example using Forms with Radio Buttons</H2>\n";
&print_formstuff($query);
&do_work($query)if ($query->param);
print $query->param;
print $query->end_html;
sub print_formstuff{
my($query) = @_;
print $query->startform(-method=>"post");
print "What is your name? ";
print $query->textfield('name'); # A simple text field
print "<BR>";
print "Select your favorite color? <BR>";
print $query->radio_group(-name=>'color',
-values=>[ 'red', 'green',
'blue','yellow' ],
-default=>'green',
-linebreak=>'true',
);
print $query->submit('action', 'submit');
print $query->reset('Clear');
print $query->endform;
print "<HR>\n";
}
sub do_work{
my ($query) = @_;
my (@values, $key);
my ($query) = @_;
my (@values, $key);
print "<H2>Here are the settings</H2>";
foreach $key ($query->param()){
print "$key: \n";
@values=$query->param($key);
print join("&",@values), "<BR>";
}
}
$query->param 变量一直没返回真。没法do_work , 改成get方式，正常。
post的数据是正常上传到nginx，可以配置看到nginx上post的数据，但是cgi返回没有param。
求解求解。目前该cgi都没法返回，重装cgi也解不了。。。。唉。。。。。。。。。
|
-
1.png
(1.57 KB, 下载次数: 55)
nginx post 数据
-
2.png
(15.37 KB, 下载次数: 56)
抓包返回状态
|
免费注册
发表于 2013-12-29 00:40
