我得到一個500內部服務器錯誤,當我嘗試在支持Perl的Web服務器運行,下面的代碼:爲什麼我的Perl CGI腳本會導致500內部服務器錯誤?
#! /usr/bin/perl
use LWP;
my $ua = LWP::UserAgent->new;
$ua->agent("TestApp/0.1 ");
$ua->env_proxy();
my $req = HTTP::Request->new(POST => 'http://www.google.com/loc/json');
$req->content_type('application/jsonrequest');
$req->content('{ "cell_towers": [{"location_area_code": "55000", "mobile_network_code": "95", "cell_id": "20491", "mobile_country_code": "404"}], "version": "1.1.0", "request_address": "true"}');
my $res = $ua->request($req);
if ($res->is_success) {
print $res->content,"\n";
} else {
print $res->status_line, "\n";
return undef;
}
但沒有錯誤,當我運行下面的代碼:
#! /usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
print "<HTML>\n";
print "<HEAD><TITLE>Hello World!</TITLE></HEAD>\n";
print "<BODY>\n";
print "<H2>Hello World!</H2> <br /> \n";
foreach $key (sort keys(%ENV)) {
print "$key = $ENV{$key}<p>" ;
}
print "</BODY>\n";
print "</HTML>\n";
所以我認爲我的代碼存在一些問題。當我使用-wc命令在本地計算機上運行第一個perl腳本時,它表示語法正常。請幫幫我。
當你有一個Perl CGI腳本的麻煩,經過我的「Perl Perl CGI腳本故障排除」:http://stackoverflow.com/questions/2165022/how-can-i-troubleshoot-my-perl-cgi-script – 2010-05-21 00:26:24
我不知道這是否有幫助,但我得到了我的perl- cgi腳本工作後我把shebang行'#!C:\ Strawberry \ perl \ bin \ perl' – 2012-03-11 14:42:01