gpt4 book ai didi

perl - 为什么我的 Perl CGI 脚本会导致 500 内部服务器错误?

转载 作者:行者123 更新时间:2023-12-04 04:00:46 28 4
gpt4 key购买 nike

当我尝试在支持 perl 的 Web 服务器中运行以下代码时,出现 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 脚本时,它说语法是正确的。请帮助我。

最佳答案

我假设您将第一个脚本作为 CGI 脚本运行?您需要包括内容类型:

print "Content-type: text/plain\n\n";

在任何其他输出之前(当然,将 text/plain 更改为 text/html 或任何合适的内容!)

关于perl - 为什么我的 Perl CGI 脚本会导致 500 内部服务器错误?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/2872040/

28 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com