Perl：使用HTTP :: Request :: Common與身份驗證進行發佈

Question

我試圖使用HTTP::Request::Common對URL進行發佈。不幸的是，它似乎沒有用於身份驗證，我不得不切換回普通ol'HTTP::Request。如果我並不需要驗證，我可以做整個事情是這樣的：

use HTTP::Request::Common; 

my $browser = LWP::UserAgent->new; 

$browser->request (
    POST $url, 
    Content => [ 
     Name => $name, 
     Address => $address, 
    ], 
); 

不幸的是，因爲認證的，我不得不回落到HTTP::Request：

use HTTP::Request; 

my $browser = LWP::UserAgent->new; 
my $request = HTTP::Request; 
my $request->authentication_basic($user, $pass); 
my $request->method("POST"); 
my $request->url($url); 

# Create Content Byte String 
my $uri = URI->new('http://'); #URL isn't needed, just the object 
$uri->form_query(Name => $name, Address => $address); 
my $content = $uri->query; 

$request->content($content); 

# Set the headers for the content 
$request->header("Content-Type" => "application/x-www-form-urlencoded"); 
$request->header("Content-Length" => length($content)); 

# Now send your request through your browser 
my $response = $browser->request($request); 

你可以看到代碼涉及更多。我想切換回HTTP::Request::Common，因爲代碼看起來會更容易維護，但我如何處理身份驗證？

Answer 1

POST只是HTTP::Request對象的一個​​奇特構造方法。使用它來構建請求對象，然後設置驗證：

use HTTP::Request::Common; 

my $browser = LWP::UserAgent->new; 
my $request = POST $url, 
    Content => [ 
     Name => $name, 
     Address => $address, 
    ]; 

$request->authorization_basic($user, $pass); 

my $response = $browser->request($request);