![nginx 使用 ngx_http_perl_module 时出现空响应](https://linux22.com/image/753202/nginx%20%E4%BD%BF%E7%94%A8%20ngx_http_perl_module%20%E6%97%B6%E5%87%BA%E7%8E%B0%E7%A9%BA%E5%93%8D%E5%BA%94.png)
我必须运行一段非常简单的 perl 代码来响应 HTTP 请求。nginx 配置如下:
http {
perl_modules perl/lib;
perl_require errors.pm;
server {
listen 80;
server_name _;
root /usr/share/nginx/html;
location / {
perl errors::response;
}
}
}
我尝试运行的代码是:
package errors;
use strict;
use warnings;
use nginx;
my $errors = {
ThisIsNotOK => {
'code' => '409',
'amzcode' => 'NOK',
'message' => 'Something went really wrong'
},
ItsOK => {
'code' => '200',
'amzcode' => 'OK',
'message' => 'Okay'
},
};
my $fmt =<<ENDFMT;
<?xml version="1.0" encoding="UTF-8"?>
<Error>
<Code>%s</Code>
<Message>%s</Message>
<Resource>/mybucket/whatever.1</Resource>
<RequestId>DEADBEEFBEDAEDA</RequestId>
</Error>
ENDFMT
sub response() {
my $r = shift();
my $curr_err = (keys %$errors)[rand keys %$errors];
$r->send_http_header("application/xml");
$r->status($errors->{$curr_err}{'code'});
$r->print(sprintf($fmt,$errors->{$curr_err}{'amzcode'}, $errors->{$curr_err}{'message'}));
return $errors->{$curr_err}{'code'};
}
1;
__END__
问题是当此代码返回 200/OK 以外的内容时,我收到空响应错误:
%curl -iX获取本地主机
curl:(52)服务器回复为空
nginx 版本:nginx/1.14.1
由 gcc 8.2.1 20180905 (Red Hat 8.2.1-3) (GCC) 构建
使用 OpenSSL 1.1.1 FIPS 于 2018 年 9 月 11 日构建(使用 OpenSSL 1.1.1c FIPS 于 2019 年 5 月 28 日运行)
已启用 TLS SNI 支持
我做错了什么?