Perl的CGI问题

Question

我正在做一些开发工作，它使用嵌入式Linux作为操作系统，Boa用于Web服务器。我有一个网页发布到CGI脚本，处理表单数据和回复。我的开发环境是Ubuntu，并且一切正常，但是当我将代码移植到嵌入式Linux时，CGI模块没有实例化（或者至少似乎没有实例化）。这里是我的代码的精简部分。 print声明了一个未初始化的变量。

use CGI; 

use strict; 
use warnings; 

my $cgiObj = CGI->new(); 

print $cgiObj->param('wlanPort'); 

再次，这在我的开发环境中工作正常，但在嵌入式环境中失败。 CGI.pm已安装，并且在CGI-> new（）命令中没有生成错误。我还验证了表单数据正在发送，但显然不能保证它正在被Perl脚本接收。

我有一种感觉，这是一个Boa配置问题，这就是接下来我将要研究的内容。我对Perl相当陌生，所以我不确定还有什么要做。有任何想法吗？

编辑：绝对不是一个博阿配置问题。仍在研究它。

更新： 我已经简化我的代码如下：

#!/usr/bin/perl 
use CGI qw(:standard); 
$data = param('wlanPort') || '<i>(No Input)</i>'; 
print header;        
print <<END; 
<title>Echoing user input</title> 
<p>wlanPort: $data</p>   
END 

正如预期的那样，它打印（无输入）

我还要指出的是，形式是ENCTYPE = “multipart/form-data”，因为我必须具有文件上传功能，而且我正在使用“POST”方法。

我使用的是HttpFox插件来检查后的数据，并检查了wlanPort值：

-----------------------------132407047814270795471206851178 Content-Disposition: form-data; name="wlanPort"

eth1

所以它几乎肯定被送到...

更新2：我安装的是同一版本的Perl和Boa被用在我的Ubuntu笔记本电脑上的嵌入式系统中。在笔记本电脑上工作，而不是在设备上，这是相同的结果。我告诉我的雇主说，除了Boa和（Micro）Perl构建在设备上而非Ubuntu上的方式外，我已经耗尽了所有可能性。

Answer 1

CGI是一个非常简单的协议，虽然我不能直接回答你的问题，但我可以推荐一些技术来帮助隔离问题。

如果您的表单是通过POST提交的，那么表单的内容将作为URL编码字符串显示在脚本获得的HTTP请求的内容中。如果不使用CGI模块在所有的，你应该能够读取STDIN的请求：

my $request = ""; 
while (<STDIN>) { 
    $request .= $_; 
} 

if (open my $out, ">>/tmp/myapp.log") { 
    print $out $request; 
    close $out; 
} 

然后，您可以检查/tmp/myapp.log看到，如果你是从该请求获得的所有信息你认为你是。

为了完整起见，如果您的表单通过GET提交，那么参数将位于环境变量QUERY_STRING中，您可以在Perl中使用$ ENV {'QUERY_STRING'}查看该变量。

CGI的对象接口和功能接口解析请求的方式应该没有区别。我不熟悉boa，但我无法想象它打破了基本的CGI协议。

一个常见的问题是您命名表单参数的一件事，并在CGI脚本中寻找不同的参数名称。这总是笑。

祝你好运，希望这有助于一些。