Perl Curl PUT 和错误 411（内容长度）

Question

我是运行 bash 脚本上的 Curl 命令，它工作得很好，但是当我在 Perl 中使用相同的命令时失败，并出现以下错误 -

错误 -

lb_update o/p: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN""http://www.w3.org/TR/html4/strict.dtd">
<HTML><HEAD><TITLE>Length Required</TITLE>
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=us-ascii"></HEAD>
<BODY><h2>Length Required</h2>
<hr><p>HTTP Error 411. The request must be chunked or have a content length.</p>
</BODY></HTML>

命令-

curl -H "Content-Type:application/json" -H "Authorization: Bearer $authtoken" -X PUT "https://management.azure.com/subscriptions/<subscription-ID>/resourceGroups/<resource-group>/providers/Microsoft.Network/loadBalancers/<load-balancer>?api-version=$apiversion" -d @output.json

Perl 命令 -

$lb_update=`curl -H "Content-Type:application/json" -H "Authorization: Bearer $authtoken" -X PUT "https://management.azure.com/subscriptions/<subscription-ID>/resourceGroups/<resource-group>/providers/Microsoft.Network/loadBalancers/<load-balancer>?api-version=$apiversion" -d @output.json';

我尝试用以下参数修改 Perl 命令，但没有帮助。 -H "Content-Length:0" 和 --ignore-content-length

我刚开始在这些论坛上发帖，如有错误请多多包涵

Answer 1

您应该始终将 use strict 和 use warnings 添加到您的 Perl 脚本中。 @output 在你的 `...` 中被 Perl 插入为一个数组。由于此数组不存在，因此 @output 被替换为空字符串。这意味着您的命令不是按照您的意愿执行 -d @output.json，而是执行 -d .json。要解决此问题，请在 @output 前加一个反斜杠：-d \@output.json.

启用 strict 和 warnings 后，将打印以下 errors/warnings：

Possible unintended interpolation of @output in string at t.pl line 6.
Global symbol "@output" requires explicit package name (did you forget to declare "my @output"?) at t.pl line 6.

此外，与其使用 system 和 curl，不如使用 Perl 模块更健壮。特别是，LWP::UserAgent 是一个很好的模块。例如：

my $ua = LWP::UserAgent->new;
my $req = $ua->put("https://management.azure.com/subscriptions/<subscription-ID>/resourceGroups/<resource-group>/providers/Microsoft.Network/loadBalancers/<load-balancer>?api-version=$apiversion",
                   Content_Type  => 'application/json',
                   Authorization => "Bearer $authtoken",
                   Content => [ file => 'output.json' ]);
die $req->status_line unless $req->is_success;
my $content = $req->decoded_content;

Perl Curl PUT 和错误 411（内容长度）

Perl Curl PUT and Error 411 (Content Length)

api

perl

curl

put

azure