Cách thực hiện yêu cầu HTTP PUT bằng LWP?

Question

Tôi đang cố gắng thay đổi yêu cầu này thành yêu cầu HTTP PUT, có ý tưởng gì không?

my $request = LWP::UserAgent->new; 
my $response = 
     $request->get($url, "apikey", $apiKey, "requestDate", $requestDate); 

Answer 1

Bạn nên sử dụng HTTP :: Yêu cầu:

use LWP::UserAgent; 
use HTTP::Request; 

my $ua = LWP::UserAgent->new; 
my $req = HTTP::Request->new("PUT", $url); 

my $res = $ua->request($req); 

Answer 2

PUT là HTTP :: Yêu cầu :: Common. Bạn có thể xây dựng yêu cầu đầu tiên và chuyển nó vào tác nhân người dùng.

use HTTP::Request::Common; 
use LWP; 

$agent = LWP::UserAgent->new; 
$request = HTTP::Request::Common::PUT($url, "apikey", $apiKey, "requestDate", $requestDate); 
$response = $agent->request($request); 

Answer 3

Tính đến 6,04, LWP::UserAgent có một helper put, vì vậy bây giờ bạn có thể làm:

$ua->put($url)