Как сделать HTTP-запрос PUT, используя LWP?

Question

Я пытаюсь изменить этот запрос на HTTP-запрос PUT, любая идея, как?

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

Answer 1

Вы должны использовать HTTP :: Запрос:

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

Начиная с 6.04, LWP::UserAgent имеет помощника put, так что теперь вы можете сделать:

$ua->put( $url )

Answer 3

PUT - это HTTP :: Request :: Common. Вы можете сначала создать запрос и передать его в пользовательский агент.

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

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