如何在包含application / x-www-form-urlencoded数据的perl中发出HTTP PUT请求？

Question

如何在Perl中发出包含application/x-www-form-urlencoded数据的HTTP PUT请求？

这是一个有效的POST请求：

my $ua       = new LWP::UserAgent;
my $response = $ua->post(
    $url,
    {
        "parameter1" => $value1,
        "parameter2" => $value2
    }
);

如何将此作为PUT请求完成？ LWP中没有put方法，PUT function in HTTP::Request::Common不接受表单数据。

如果允许带有表单数据的PUT请求进行讨论，请参阅Can HTTP PUT request have application/x-www-form-urlencoded as the Content-Type?

这是PUT请求的示例，但它不包含用于封装表单数据的代码：How to make a HTTP PUT request using LWP?

Answer 1

只需提出POST - 请求并将其方法更改为PUT：

use HTTP::Request::Common;

my $req = POST('http://example.com/', Content => [param => 'value']);

$req->method('PUT');

say($req->as_string);