我在我的
CGI::Application网络应用程序中有一个运行模式,我希望能够从命令行触发,以便我可以自动执行它.从web-app的角度来看,它会进行一些处理,然后通过电子邮件发送结果.
从Web界面调用时,它会传递一组参数(电子邮件地址,要运行的查询,日期等),因此需要传入这些参数.
如何构建对CGI :: Application应用程序的调用,就像我从Web上运行它一样？
解决方法
最初的
CGI specification可以很容易地从命令行运行,完全不是作为特定的HTTP接口,而是可以处理FTP和gopher以及新的顶级URL方案.当我指示它时,我知道我想要什么.
我引用的规范应该为您提供所需的一切,但在大多数情况下,它只是一组环境变量.如果您看到以下请求：
http://some.server.com/some/path?a=b&c=d
环境变量看起来像这样：
SERVER_PROTOCOL=http REQUEST_METHOD=GET HTTP_HOST=some.server.com SERVER_PORT=80 PATH_INFO=/some/path QUERY_INFO=a=b&c=d
要扭转Perl中极性的极性,可以这样：
$ENV{'SERVER_PROTOCOL'} = 'http';
$ENV{'REQUEST_METHOD'} = 'GET';
$ENV{'SERVER_PORT'} = 80;
$ENV{'PATH_INFO'} = '/some/path';
$ENV{'QUERY_INFO'} = 'a=b&c=d';
system("perl your-CGI-script.pl");
在处理POST查询时,事情变得更加复杂,并且可能需要更多可能的环境变量.最糟糕的情况是,您可以使用快速CGI脚本枚举它们,例如：
print "Content-Type: text/plain\r\n\r\n";
foreach (keys(%ENV))
{
print "$_=$ENV{$_}\r\n";
}
现在将它放在Web服务器上代替您的CGI脚本,您将看到所有传入的环境(以及原始环境,因此您需要进行一些判断调用).
