LWP :: UserAgent的POST方法沒有返回值

Question

只需複製Perl的這段代碼烹飪書第二版，第796

返回： 400 URL必須是絕對的。

這段代碼有什麼問題？

#!"c:\strawberry\perl\bin\perl.exe" -w 

use 5.006; 
use strict; 
use LWP::Simple; 
use LWP::UserAgent; 

my $ua = LWP::UserAgent->new(); 
my $resp = $ua->post("www.amazon.com/exec/obidos/search-handle-form", 
        { "url"    => "index-books", 
         "field-keywords" => "perl"} 
); 
my $content = $resp->content; 

print $content, "\n"; 

Answer 1

您在URL

好了，想必http://前面忘了http://，它可能是https://，ftp://，等等，等等